void deleteFirst(List &L, address P) {
        P = first(L);
        first(L) = next(P);
        next(P) = NULL;
}