var np: array[1..30] of longint; i,n.p:longint; begin assign(input,'np.inp');reset(input); assign(output,'np.out');rewrite(output); read(n); for i:=1 to n do np[i]:=0; While true do begin For i:=1 to n do writeln(np[i]) p:=n; While (p>0) and (np[p]=1) do dec(n); np[p]:=1; for i:=p+1 to n do np[i]:=0; end; close(input); close(output); end.