var a:array[1..40] of longint;  
        sol:array[0..40] of int64;  
        f,g:text;  
        n,k:int64;  
       i,j:longint;  
      
    procedure complete(st,dr,plus,nr:int64);  
    var i,vf,n:longint;  
         stanga,dreapta:int64;  
    begin  
     n:=dr-st+1;  
     for i:=1 to n do  
      if sol[i-1]*sol[n-i]>=nr then begin  
       vf:=i;  
       break;  
      end  
      else  
       nr:=nr-sol[i-1]*sol[n-i];  
     if (st<=dr) and (n<>0) then begin  
      a[st]:=vf+plus-1;  
      stanga:=(nr-1) div sol[n-i]+1;  
      dreapta:=nr-(stanga-1)*sol[n-i];  
      complete(st+1,st+vf-1,plus,stanga);  
      complete(st+vf,dr,plus+vf,dreapta);  
     end;  
    end;  
     
   begin  
    assign(f,'planeta.in'); reset(f);  
    assign(g,'planeta.out'); rewrite(g);  
    read(f,n,k);  
    sol[0]:=1; sol[1]:=1;  
    for i:=2 to n do  
     for j:=1 to i do  
      sol[i]:=sol[i]+sol[j-1]*sol[i-j];  
    complete(1,n,1,k);  
    for i:=1 to n-1 do  
     write(g,a[i],' ');  
    writeln(g,a[n]);  
    close(f); close(g);  
  end.