let to_native_string l =
Make_native_conversions.to_native_string_knowing_size
~future_size:(fun l ->
List.fold_left l ~init:0 ~f:(fun sum c -> sum + Char.size c))
~iter ~write_char_to_native_string:Char.write_to_native_string
l