expr (lexer "1 + 2 - 3 * 4 / 5") :: [Expr]
expr (lexer "1 + - 3 * 4 / 5") :: [Expr]
expr (lexer "1 + 2 - 3 * 4 / 5") :: Maybe Expr