let tuplify_patt (_loc: Ast.Loc.t) (a_pattern_list: Ast.patt list): Ast.patt =
  match a_pattern_list with
      [] -> Loc.raise _loc (Stream.Error "tuplify_patt: empty pattern list")
    | x :: [] -> x
    | _ -> <:patt< ($tup:Ast.paCom_of_list a_pattern_list$) >>