let nb_occ_elt2_a e s =
  let n = ref 0 in
    Array.iter (fun e' -> if (e = e') then incr n) s;
    !n