expr (lexer "3+(5)") :: IO Expr