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