var n,m,i,j,k:longint;
    a,b,c:array[1..10000] of longint;
    
begin
  assign(input,'sortaret.in');
  assign(output,'sortaret.out');
  reset(input);
  rewrite(output);
  read(n,m);
  for i:=1 to m do 
    read(a[i],b[i]);
  for i:=1 to n do
    c[i]:=i;
  for i:=1 to m do begin
    if a[i]>b[i] then begin
      writeln(a[i],' ',b[i]);
      k:=c[a[i]];
      c[a[i]]:=c[b[i]];
      c[b[i]]:=k;
    end;
  end;
  for i:=1 to n do
    write(c[i],' ');
end.