addTwo :: Expr
addTwo = (Lam "w" (BinOp Plus (Ident "w") (Lit (LInt 2))))
addTwo :: Expr
addTwo = (Lam "w" (BinOp Plus (Ident "w") (Lit (LInt 2))))
addTwo = (Lam "w" (BinOp Plus (Ident "w") (Lit (LInt 2))))