main=interact$(unlines%).lines u%d=u[zipWith(!)r$u[take 80$drop i$c++y++c|y<-d]|i<-r] c=r>>" " r=[500..1078] 793!'#'='*';_!c=c
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page