parseExpr :: String -> Either ParseError Expr
parseExpr = parse (contents expr) "<stdin>"
parseExpr :: String -> Either ParseError Expr
parseExpr = parse (contents expr) "<stdin>"
parseExpr = parse (contents expr) "<stdin>"