var i,m,len,k,j:longint;

c:array [1..910000] of longint;

begin

readln(m);c[1]:=1;len:=1;

for k:=1 to m do

begin

for j:=len downto 1 do

c[j]:=c[j]*2;

for j:=len downto 1 do

if c[j]>9 then

begin

c[j+1]:=c[j+1]+c[j] div 10;

c[j]:=c[j] mod 10;

end;

if c[len+1]>0 then inc(len);

end;

c[1]:=c[1]-1;

write(len);

for k:=500 downto 1 do

begin

if k mod 50=0 then writeln;

write(c[k]);

end;

end.

才50分,5个点超了时~~~