program pava2;
var f:text;
    st,c:array[1..1000] of -1..1;
    n,a,b,i,j,k,nsol,nn,na:integer;
    as,ev:boolean;
begin
  assign(f,'pavare2.in');
  reset(f);
  readln(f,n,a,b);
  readln(f,k);
  close(f);
  assign(f,'pavare2.out');
  rewrite(f);
  j:=1;
  st[j]:=-1;
  na:=0;
  nn:=0;
  nsol:=0;
  while j>0 do
  begin
    repeat
      if st[j]<1 then begin
                       st[j]:=st[j]+1;
                       as:=true
                      end
                 else as:=false;
      if as then begin
                   if st[j]=0 then if st[j-1]=0 then if na<a then begin
                                                                   ev:=true;
                                                                   na:=na+1
                                                                  end
                                                             else ev:=false
                                                else begin
                                                      na:=1;
                                                      nn:=0;
                                                      ev:=true
                                                     end
                              else if st[j-1]=1 then if nn<b then begin
                                                                   ev:=true;
                                                                   nn:=nn+1
                                                                  end
                                                             else ev:=false
                                                else begin
                                                      nn:=1;
                                                      na:=0;
                                                      ev:=true
                                                     end
                 end
    until(not as) or (as and ev);
    if as then if j=n then begin
                              nsol:=nsol+1;
                              if nsol=k then
                                 for i:=1 to n do
                                    c[i]:=st[i]
                           end
                      else begin
                             j:=j+1;
                             st[j]:=-1
                           end
          else j:=j-1
  end;
writeln(f,nsol);
for i:=1 to n do write(f,c[i],' ');
close(f);
end.