let utf8_string_length s = let len = String.length s in let rec iter acc n = if n >= len then acc else iter (acc+1) (n + (utf8_nb_bytes_of_char s.[n])) in iter 0 0