var
  f: text;
  a: array[1..1000] of integer;
  n, i, x: integer;

begin
  assign(f, 'output.txt');
  reset(f);
  n := 0;
  while not eof(f) do
  begin
    inc(n);
    read(f, a[n]);
  end;
  close(f);
  for i := 1 to n do
    write(a[i], ' ');
end.