(** {2 Pretty printing from BoxML to strings} *)
-let utf8_string_length s = Utf8.compute_len s 0 (String.length s)
+let utf8_string_length s = Utf8.compute_len s 0 (String.length s)
let string_space = " "
let string_space_len = utf8_string_length string_space