let
pat ?(loc=
Lexing
.dummy_pos,
Lexing
.dummy_pos) (p,q) = unamed ~loc (
Pat
(p,q))