Smin
#define sfirst(f) (f->field [Smin(f, P(f))])
Smin(f, page) = p->index; /* set sorted min */
FIELD * x = f -> field [Smin(f, page)];