let string_implode ls = let s = String.create (List.length ls) in ignore (List.fold_left (fun i c -> s.[i] <- c; i + 1) 0 ls); s