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$) >>