foo :: IO (String, String, String) foo = replicateT getLine
> foo Hello world ! ("Hello","world","!")
> sequenceT (print 3110, putStrLn World) :: IO ((), ()) 3110 World ((),())