main=f$[' '..'~']>>=(:" ")
f(x:y)=putStrLn(x:take 30y)>>f(drop 31y)