program tail;

function min(a, b : integer) : integer;
begin
   if a < b then
      min := a
   else
      min := b;
end;

var
   lines : array [0..9] of string;  {what do you mean you want more than 10 lines?}
   i, j  : cardinal;

begin
   i := 0;
   while not eof(input) do
   begin
      readln(lines[i mod length(lines)]);
      i := i + 1;
   end;

   for j := i to i+min(i,length(lines))-1 do
      writeln(lines[j mod length(lines)]);
end.