prendre_en_tete()

/* procedure prendre en tete de liste */
element * prendre_en_tete(element ** ptr) {
if (*ptr == NULL) return NULL ;
element * ptr_el = *ptr ;
*ptr = (*ptr)->suivant ;
ptr_el->suivant= NULL;
return ptr_el ;
} /*prendre_en_tete de liste */