expr (lexer "a+b*c+d") :: [Expr]
expr (lexer "a+b c+d") :: [Expr]