void insertFirst(List &L, address P) {
    address Q;
    Q = firsts(L);
    While(next(Q) != first(L)) {
        Q = next(Q);
    }
    next(Q) = P;
    next(P) = first(L);
}