function D=ed1mod(e,fi);

D=[];
for i=1:1000000
    d=i;
    if mod(e*d,fi)==1
        D=[D d];
    end;
end;

