let of_character_list cl = let length = List.length cl in let buf = String.make length '\x00' in List.iteri cl ~f:(fun i c -> buf.[i] <- c); buf