let create : int -> string = String.create
let set :  string -> int -> char -> unit = String.set