begin
repeat
var c:char;read(c);for c:=^
to c do write(c);writeln;until 1=0end.