let nb_occ_elt2 e s =
  let n = ref 0 in
    for i=0 to (Array.length s) - 1 do
      if (e = s.(i)) then incr n
    done;
    !n