let sg ?(char_gen = cg) ?(size_gen = nng) () = let s = String.create (size_gen ()) in for i = 0 to String.length s - 1 do s.[i] <- char_gen () done; s