main=interact$f.lines f x=u[zipWith(&)[0..]$u[take 80$drop i$s++y++s|y<-x]|i<-[1..length(x!!0)+79]] 293&'#'='*' _&a=a s=[1..80]>>" " u=unlines
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page