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