main=mapM putStrLn[take 31$[c..'~']>>=(:" ")|c<-" 0@P`p"]