var
m:longint;n:integer; a:array[1..10] of longint=(2,4,8,16,32,64,128,256,512,1024);
begin readln(m,n);writeln(m-((m+a[n]-1) div a[n]));end.

测试数据 #0: Accepted, time = 0 ms, mem = 808 KiB, score = 20
测试数据 #1: Accepted, time = 0 ms, mem = 808 KiB, score = 20
测试数据 #2: Accepted, time = 0 ms, mem = 812 KiB, score = 20
测试数据 #3: Accepted, time = 0 ms, mem = 808 KiB, score = 20
测试数据 #4: Accepted, time = 0 ms, mem = 812 KiB, score = 20
Accepted, time = 0 ms, mem = 812 KiB, score = 100