@a=$n*2-$#F?($")x@F:@F,@a[$n++,@F/2,-$n]=($_)x3,print@a,$/for@F=<>=~/./g
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page