void vanishfront(kat **head)
{
    if (*head!=NULL)
    {
        if((*head)->down==NULL)
        {
            *head=NULL;
        }
        else
        {
            kat *tmp;
            tmp=(*head)->down;
            free(*head);
            *head=tmp;
            (*head)->up=NULL;
        }

    }
}