r=["world","hello",w++"!"];main=mapM putStrLn$w:l;w:l=r++take 97[p++' ':s|p<-l,s<-r]