var f:array [1..100] of integer;
i,j,n,l,l2:integer;
g:text;
begin
assign(g,'rr.dat');
reset(g);
readln(n);
l:=1;
for i:=1 to n do
for l:=1 to l do
begin
l2:=l+1;
f[i]:=f[n-l]+f[n-l2];
end;
assign(g,'tt.sol');
rewrite(g);
for i:=1 to n do
writeln(g,f[i]);
end.