x:z=[a++b|a<-"":z,b<-[" world"," hello",x++"!"]];main=mapM(putStrLn.tail)$x:take 99z