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