var c:char;b:boolean;begin repeat b:=eoln;read(c);if b then c:=^j;write(c,c)until 1=0end.