let mkpat loc d = { ppat_desc = d; ppat_loc = mkloc loc; }