ocaml-nagoya
http://d.hatena.ne.jp/keigoi/20101101/1288584308
let utf8_encode s = s (* let len = String.length s in Utf8.from_int_array (Array.init len (fun i -> Char.code s.[i])) 0 len *)