【题目描述】
从前有一只红色的云在天上非常愉快地飘，但是……
红云是一只十分好奇的生物（友情提示：生物考试的时候千万不能说云是生物，千万不能！），俗话说好奇心害死云，红云因为太好奇了所以被一个邪恶的地球人的陷阱困住了。
陷阱有一个神奇的出口，但需要输入正确的密码。红云不能理解地球人的思维所以并不知道怎么办。幸运的是它发现陷阱的旁边有一只DTZ，于是它用iPhone6威胁DTZ帮它解码。
DTZ通过神奇的途径得知了密码是这道题的答案：对于一个包含n个数的数列，每一位可以从1~m中选择一个数填上去，使得这个数列递增。该数列每一位的数字不能相同，求总共有几种不同的选择方法。将答案模23333便是密码。
然而DTZ非常尴尬地发现他解决不了这个问题因为数实在太大了，所以就把这个锅强行甩给了你。作为一个善良的地球人，请尽快解决这个问题，这样红云就会十分感激并用iPhone6威胁评测系统给你的考试分数加上100分。
【输入描述】
输入包含两个正整数n，m
【输出描述】
输出包含一个正整数表示密码
【样例输入】
3 3
【样例输出】
1
【样例解释】
假设这个数列的3个数分别为a1，a2，a3（1<=a1<a2<a3<=3< span="">），求有几种不同的填法。 </a2<a3<=3<>
那么只有一种答案：1,2,3
所以密码为1 mod 23333=1
【数据范围】
对于10%的数据，n=m
对于100%的数据，1<=n<=10000, n<=m<=10000
程序：
var
f:array[0..1,-1..10001]of longint;
i,j,n,m:longint;
function min(x,y:longint):longint;
begin
if x>y then exit(y) else exit(x);
end;
begin
read(n,m);
f[0,0]:=1;
for i:=1 to m do
for j:=0 to min(n,i) do
f[i mod 2,j]:=(f[(i+1) mod 2,j]+f[(i+1) mod 2,j-1]) mod 23333;
write(f[m mod 2,n]);
end.