var st:string;p:longint;
begin
   while not eof do
    begin
      readln(st);
      p:=pos(' ',st);
      delete(st,p,1);
      writeln(st);
    end;
end.

/**************************************************************
	Problem: 2180
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/