expr (lexer "a") :: Maybe Expr
expr (lexer "a (b)") :: Maybe Expr
expr (lexer "a (b c d)") :: Maybe Expr
expr (lexer "a (b c d) e (f g)") :: Maybe Expr