type 'a lc = {
  mutable tete : 'a option;
  mutable suivant : 'a lc option
};;