var a,b,c,d:longint;
begin
read(a);
b:=a mod 1000;
c:=a div 1000;
if b>c then d:=b*1000+c
       else d:=c*1000+b;
       write(d);
       end.
/**************************************************************
	Problem: 1631
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/