TFVV 3:39 PM -Could you please solve the following question in Haskell language programming Extend the abstract syntax tree data type Expr to add new operations Neg (negation), Min (minimum), Max (maximum), and Exp (exponentiation). data Expr= .. |Neg Expr Min Expr Expr Max Expr Expr Exp Expr Expr deriving Show Then extend the eval function (in the EvalExpr module) to add these new operations with the following informal semantics Neg e negates the value of e - Neg (Val 1) is (Val Min 1 r returns the smaller value of 1 and r Max r returns the larger value of 1 and r Exp 1 r raises 1 to the poewr r