let cg () = char_of_int (Random.int 256)