Expr2.hs

module Expr2 where

data Expr = Var String
          | Num Double
          | Plus Expr Expr
          | Minus Expr Expr
          | Times Expr Expr
          | Div Expr Expr
	  | Pick Expr Expr
          deriving (Eq, Show)