datatype: data LamExpr = LamApp LamExpr LamExpr | LamAbs Int LamExpr | LamVar Int deriving (Show,Eq,Read)

define a function: prettyPrint :: LamExpr -> String

that converts a lambda expression to an equivalent expression in Alpha-Normal Form.

Example results wanted:

prettyPrint (LamAbs 1 (LamAbs 1 (LamApp (LamVar 1) (LamAbs 1 (LamAbs 2 (LamVar 1)))))) = "\\x0 -> \\x0 -> x0 \\x0 -> \\x1 -> x0 "

prettyPrint (LamApp (LamAbs 1 (LamVar 1)) (LamAbs 1 (LamVar 1))) = "(\\x0 -> x0) \\x0 -> x0"

Haskell code as answer plz