let count_char s c =
  let cpt = ref 0 in
  for i = 0 to String.length s - 1 do
    if s.[i] = c then incr cpt
  done;
  !cpt