var     a,v:array[0..50000]of longint;
        n,m,x,y:longint;
        i,j: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 n do
    a[i]:=i;
  repeat
    b:=true;
    reset(f1);
    readln(f1);
    for i:=1 to m do
      begin
        readln(f1,x,y);
        if a[x]>a[y] then
          begin
            sw(a[x],a[y]);
            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.