DROP
#define DROP(P,R) if (P) {P[-1] = P[0] = hole; R = 0;} else/*EMPTY*/
#define DROP(n) (p->slen -= (n))