Source file utf8.ml

1
let length s = Format.utf_8_scalar_width ~pos:0 ~len:(String.length s) s