slope lines by Mark Byers

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 top