gsub(/./){$*[L-=2]="%#{M-=2}s#$&"%$*[L]}while gets&&L=?~-M=4-$.*2 puts$*-[p]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page