duplicate certain lines _A_ by uru

var j:word;s,t,u,v:string=^`;begin
readln(t);repeat
inc(j);str(j,u);readln(s);if pos(v+u+v,v+t+v)>0then s:=s+^j+s;writeln(s)until 1=0end.

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

download

return to the top page