TYPE_Xr
putkey(mpage, n->string, TYPE_Xr);
putkey(mpage, cp, TYPE_Xr);
for (mask = TYPE_Xr; mask <= TYPE_Lb; mask *= 2) {