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