void freelist(list * l)
{
    Element *p = *l;

    while(*l!=NULL)
    {
        p=*l;
        *l=(*l)->next;
        free(p);
    }
}