main=interact$f.lines f x=u[u[[i#j$(take 79s++x!!i++s)!!(j+n)|j<-[0..79]]|i<-[0..6]]|n<-[0..200]] u=unlines s=' ':s (3#50)'#'='*' (_#_)c=c
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page