program mason;
type
zn=array[1..555]of integer;
Var
f1,f2:text; p,i,j,n:longint;
sz,sz2:zn;
begin
assign(f1,'mason.in');reset(f1);
assign(f2,'mason.out');rewrite(f2);
readln(f1,n);
for i:=1 to 500 do
sz[i]:=0;
sz[1]:=2;
for j:=2 to n do
begin
sz2:=sz;  p:=0;
for i:=1 to 500 do
begin sz[i]:=sz[i]+sz2[i]+p;
      p:=sz[i] div 10;
      sz[i]:=sz[i] mod 10;
end;
end;
sz[1]:=sz[1]-1;
writeln(f2,trunc(n*ln(2)/ln(10))+1);
j:=0;
for i:=500 downto 1 do
begin
j:=j+1;
write(f2,sz[i]);
if j=50 then begin writeln(f2);j:=0;end;
end;
close(f2);close(f1);
end.