void clear(list *L)
{
	node **x;
	if(L->head)
	{
		*x = L->head;
		while((*x)->next)
		{
			*x = (*x)->next;
			free((*x)->prev);
			(*x)->prev = NULL;
		}
		free(*x);
		*x = NULL;
	}
}