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