var a:array[0..5000,0..5000] of integer;
    use,st:array[1..5000]of integer;
    n,m,nr,i,j:integer;
    f,g:text;
procedure citire;
var i,j,k:integer;
begin
assign(f,'sortaret.in');reset(f);
assign(g,'sortaret.out');rewrite(g);
read(f,n,m);
for k:=1 to m do
    begin
    read(f,i,j);
    a[i,0]:=a[i,0]+1;
    a[i,a[i,0]]:=j;
    end;
close(f);
end;

procedure df(nod:integer);
var i:integer;
begin
use[nod]:=1;
nr:=nr+1;
st[nr]:=nod;
for i:=1 to a[nod,0] do
 if use[a[nod,i]]=0 then df(a[nod,i]);

end;

begin
citire;
nr:=0;
for i:=1 to n do use[i]:=0;
for i:=1 to n do
 if use[i]=0 then df(i);
writeln(nr);
for i:=1 to nr do write(g,st[i],' ');
close(g);
end.