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