var c:char;b:boolean;begin repeat b:=eoln;read(c);if b then c:=^j;write(c,c)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