duplicate lines by mskzzzz(ascii)

$mode ascii
(i:=#l:=(bag 1,a="
")bag a:=sys.read{0;a;#a}take a:=1e4 form 0)do drop drop t:=-1 drop >l[i];

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

download

return to the top page