expr (lexer "1+5") :: IO Expr
term (lexer "(1+5)") :: IO Expr