var a,b,c:array[1..1010]of longint;
    v:array[1..1000001]of boolean;
    x:array[1..1000001]of longint;
    i,j,a1,b1,c1,n:longint;

begin
assign(input,'curcubeu.in');reset(input);
assign(output,'curcubeu.out');rewrite(output);
readln(n,a[1],b[1],c[1]);
//writeln('1 ',a[1],' ',b[1],' ',c[1]);
for i:=2 to n-1 do
        begin
        a[i]:=(a[i-1]*i)mod n;
        b[i]:=(b[i-1]*i)mod n;
        c[i]:=(c[i-1]*i)mod n;
//        writeln(i,' ',a[i],' ',b[i],' ',c[i]);
        end;
for i:=n-1 downto 1 do
        begin
        if not v[c[i]] then
                begin
                v[c[i]]:=true;
                for j:=a[i] to b[i] do
                        if x[j]=0 then
                                x[j]:=c[i];
                end;
        end;
for i:=1 to n-1 do
        writeln(x[i]);
close(input);close(output);
end.