uses crt;
type kl=array[1..100000] of boolean;
op=array[1..100000]of integer;
kl2=array[1..10000,1..10000] of integer;
var
 i,m,n,a,b,c,d:integer;
 f,g:text;
 j:kl;
 v:op;
 x:kl2;
procedure lep(a:integer);
var i:integer;
begin
 j[a]:=true;
 for i:=1 to n do
  if  (x[a,i]<>0)and(not(j[i]))
   then
     lep(i);
 inc(d);
 v[d]:=a;
end;
begin
 assign(f,'sortaret.in');
 reset(f);
 assign(g,'sortaret.out');
 rewrite(g);
 readln(f,n,m);
 for i:=1 to m do
   begin
     readln(f,a,b);
     x[a,b]:=1;
   end;
 d:=0;
 for i:=1 to n do
  j[i]:=false;
 for i:=1 to n do
   if not(j[i])
    then
     begin
      lep(i);
     end;
 for i:=n downto 1   do
  write(g,v[i],' ');
 close(f);
 close(g);
end.