main=interact$(%' ').words x%s=s:drop 3(x&s>>"_")++f"| "x&s++x&s++f"_|"x&'_' x&s="\n|"++do y<-x;s:y++s:"|" f=map.zipWith const.cycle
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page