let tg g1 g2 g3 () = (g1 (),g2 (), g3 ())