program e3;
 var
     n,p,i,k:longint;
     ans:longint;
     opt:array[0..500,0..300] of longint;

function search(i,j:longint):longint;

 begin
   if j>p then exit(0);
   if opt[i,j]<>-1 then exit(opt[i,j]);
   opt[i,j]:=(search(i-1,j)+search(i,j+1)) mod 4096;
   exit(opt[i,j]);
 end;


begin
 assign(input,'subway.in');
 assign(output,'subway.out');
 reset(input); rewrite(output);
 readln(n,p);
 fillchar(opt,sizeof(opt),$FF);
 for i:=1 to n do opt[i,i]:=1;
 for i:=1 to n do opt[i,0]:=1;
 for i:=1 to n do opt[i,1]:=i-1;
 opt[0,0]:=0;
 for k:=0 to p do
 ans:=(ans+search(n,k)) mod 4096;
 writeln(ans);
 close(input); close(output);
end.