program ooo;
var
i,j,k,n,m,max:longint;
t:text;
procedure oo(l,r,h:longint);
var
i,j,k:longint;
begin
if (l=n)and(r=0) then begin inc(max);max:=max mod 4096;exit;end;
if (h<m)and(l<n) then oo(l+1,r+1,h+1);
if (r<>0)and(h<>0) then oo(l,r-1,h-1);
end;
begin
assign(t,'subway.in');
reset(t);
readln(t,n,m);
close(t);
max:=1;
if m=2 then
for i:=1 to n-1 do
max:=(2*max) mod 4096;
if (m<>2)and(m<>1) then
oo(1,1,1);
assign(t,'subway.out');
rewrite(t);
write(t,max);
close(t);
end.