program tac;

procedure next();
   var line : string;
begin
   if not eof(input) then
   begin
      readln(line);
      next();
      writeln(line);
   end;
end;

begin
   next();
end.