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