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