w:l=[x++y|x<-"":l,y<-[" world"," hello",w++"!"]]
main=mapM(putStrLn.tail)$w:take 99l