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