let pg gen1 gen2 () = (gen1 (), gen2 ())