x,y=[8,9].zip *r=$<.map{|$_|eval"[%s,%s,%p]"%split} s=(y.min..z=y.max).map{'-'*(x.max+1-y=x.min)} r.map{|e,f,s[f+~z][e-y]|} puts s
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page