var i,nr,dif,n:integer;
    a:array [1..100] of integer;
    f,g:text;
begin
    assign(f,'multimi2.in');
    assign(g,'multimi2.out');
    reset(F);
    read(f,n);
    i:=n;
    while i-4>=0 do begin
           a[i]:=1;
           a[i-1]:=2;
           a[i-2]:=2;
           a[i-3]:=1;
           i:=i-4;
           end;
         nr:=nr div 4*2;
       case i of
       0: dif:=0;
       1: begin
         a[1]:=1;
         dif:=1;
         inc(NR);
         end;
       2: begin
           a[1]:=1;
           a[2]:=2;
         dif:=2;
         inc(Nr);
         end;
       3: begin
           a[1]:=1;
           a[2]:=1;
           a[3]:=2;
           dif:=0;
           nr:=nr+2;
           end;
      end;
    writeln(g,dif);
    writeln(g,nr);
   for i:=1 to n do
   if a[i]=1 then write (g,a[i],' ');
          writeln;
          close(F);
          close(G);
end.