void ListClear(list *l)
{
node *current;
while(l->head!=0)
{
current=l->head;
l->head=l->head->next;
free(current->entry.Data1);
free(current->entry.Data2);
free(current);
current=0;
}
}