let rec nb_occ_elt1 e s =
  match s with
      [] -> 0
    | e'::s' -> 
        if (e = e') then 1 + (nb_occ_elt1 e s')
        else (nb_occ_elt1 e s')