ans,n,m,i,j:longint;

a:array[1..32767]of longint;

procedure go(time,i:longint);

begin

if time=n then inc(ans)else

for i:=i to m do go(time+1,i);

end;

begin

readln(n,m);

go(1,0);

writeln(ans);

end.