Var
   n,t: longint;

Begin
     readln(input,n, t);
     if (t>=0) then writeln(output, t shr (n-1)) else
     if (n= 1) then writeln(output, t)           else
                    writeln(output, -(abs(t) shr (n-1)) -1);
End.