main=interact(unlines.f.lines) (%)=replicate f l=l#maximum(map length l) s&l=s:l++[s] l#w=(w+4)%'#'&map(!w)(w%' '&l) l!w='#'&(' '&l++(w-length l)%' ')
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page