let nb_occ_elt1_b e s =
  List.fold_left (fun n e' -> if (e = e') then n+1 else n) 0 s