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