program zig_zag;

{$mode objfpc}{$H+}


 var perioda,mocnina,i,n,binarne,dvanahatu,vysledok,h:integer;
begin
  perioda:=1;
  dvanahatu:=1;
  read(n);
  read;
  readln(h);
  vysledok:=0;
  binarne:=0;
  for mocnina:=1 to h do begin
    perioda:=perioda*2;
  end;
  n:=n mod (perioda);
  if n=0 then begin
   n:=perioda;
  end;
  for i:=1 to h do begin
   if n mod 2=0 then begin
    n:=n div 2;
    binarne:=(binarne+1)*10;
   end
   else begin
    n:=(n+1) div 2;
    binarne:=binarne*10;
   end;
  end;
  binarne:=binarne div 10;
  for i:=0 to h do begin
   vysledok:=vysledok+(binarne mod 10)*dvanahatu;
   binarne:=binarne div 10;
   dvanahatu:=dvanahatu*2;
  end;
  writeln(vysledok);
  readln;
end.