ln_seq::~ln_seq()
    {
    listnode *p;
    while ((p = first) != 0)
        {
        first = first->next;
        delete p;
        }
    }

