let tuplify_expr (_loc: Ast.Loc.t) (an_expression_list: Ast.expr list): Ast.expr =
match an_expression_list with
[] -> Loc.raise _loc (Stream.Error "tuplify_expr: empty expression list")
| x :: [] -> x
| _ -> <:expr< ($tup:Ast.exCom_of_list an_expression_list$) >>