let mkstr loc d = { pstr_desc = d; pstr_loc = mkloc loc; }