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