type point=^nod;
     nod=record
         nr:longint;
         ua:point;
     end;

var f1,f2:text;
    i,n,m,t,f:longint;
    np,s:array[0..50010] of shortint;
    l:array[0..50010] of point;
    lf:point;

procedure dfs(nod:longint);
var p:point;
begin
        s[nod]:=1;
        p:=l[nod];
        while p<>nil do
        begin
                dfs(p^.nr);
                p:=p^.ua;
        end;
        new(p);
        p^.nr:=nod;
        p^.ua:=lf;
        lf:=p;
end;

procedure clad(t,f:longint);
var p:point;
begin
        new(p);
        p^.nr:=f;
        p^.ua:=l[t];
        l[t]:=p;
end;

begin
        assign(f1,'sortaret.in');
        reset(f1);
        assign(f2,'sortaret.out');
        rewrite(f2);
        read(f1,n,m);
        for i:=1 to m do
        begin
                read(f1,t,f);
                clad(t,f);
                inc(np[f]);
        end;
        for i:=1 to n do
                if s[i]=0 then
                        dfs(i);
        while lf<>nil do
        begin
                write(f2,lf^.nr,' ');
                lf:=lf^.ua;
        end;
        close(f1);
        close(f2);
end.