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

begin
  AssignFile(f, 'output.txt');
  Reset(f);
  i := 0;
  while not Eof(f) do
  begin
    j := 0;
    while not Eoln(f) do
    begin
      Read(f, a[i, j]);
      Inc(j);
    end;
    ReadLn(f);
    Inc(i);
  end;
  CloseFile(f);
  for i := 1 to n do
    write(a[i], ' ');
end.