var     a,v:array[0..50000]of longint;
        c:array[1..2,1..100000]of longint;
        n,m:longint;
        i:longint;
        f1,f2:text;
        b:boolean;

procedure sw(var a,b:longint);
var     t:longint;
begin
  t:=a; a:=b; b:=t;
end;

begin
  assign(f1,'sortaret.in');
  assign(f2,'sortaret.out');
  reset(f1);
  rewrite(f2);
  readln(f1,n,m);

  for i:=1 to m do
    readln(f1,c[1,i],c[2,i]);

  for i:=1 to n do
    a[i]:=i;
  repeat
    b:=true;
    reset(f1);
    readln(f1);
    for i:=1 to m do
      begin
        if a[c[1,i]]>a[c[2,i]] then
          begin
            sw(a[c[1,i]],a[c[2,i]]);
            b:=false;
          end;
      end;
  until b=true;

  for i:=1 to n do
    v[a[i]]:=i;
  for i:=1 to n do
    write(f2,v[i],' ');
  close(f2);
end.