s/ |$/ |$&/g,($a=$b="| $_ ")=~s/\S./| /g,s/\S\S/ |/g,print$",_ x y/| -~/|_/," $a$b|_$_"for<>
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page