slope lines by pooq

load'strings'
s=:' '
3 :'if.a:~:<y do.wd y rplc''@'';s end.'&dtb"1;"1(,.<@#&s"0+:(>:i.-(<:1{$a)),0,>:i.<:0{$a),.(,'   '&,)/&.>,.</.|."1 a=:rplc&(s;'@');._2(1!:1)3

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top