duplicate certain lines _A_ by murky-satyr

I:=0.K:=stdin upTo:$
.stdin linesDo:[:x|(x,(K~('\b%1\b'bindWith:(I:=I+1))and:['
',x]))displayNl]

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

download

return to the top page