void EliminaTestaLista(TipoLista *pl) {
  TipoLista s;

  if(*pl==NULL) {
    printf("Tentativo di eliminazione testa da lista vuota\n");
    exit(1);
  }

  s=*pl;

  *pl=(*pl)->next;

  free(s);
}