slope lines by pooq

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

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

download

return top