program sortaret;
var a:array[0..10000..10000]of longint;
    postordine:array[0..10000]of longint;
    viz:array[0..10000]of 0..1;n,i,nr:longint;f,g:text;
procedure citire;
var x,y,m,i:longint;
begin
     readln(f,n,m);
      for i:=1 to m do begin
        readln(f,x,y);
         inc(a[x,0]);
         a[x,a[x,0]]:=y;
        end;
      end;
procedure dfs(x:longint);
var i:longint;
begin
    viz[x]:=1;
      for i:=1 to a[x,0] do
       if viz[a[x,i]]=0 then dfs(a[x,i]);
        inc(nr);
        postordine[nr]:=x;
       end;
begin
     assign(f,'sortaret.in');reset(F);
     assign(g,'sortaret.out');rewrite(g);
           citire;
             for i:=1 to n do
              if viz[i]=0 then dfs(i);
              for i:=n downto 1 do write(g,postordine[i],' ');
             close(f);close(g);
     end.