(define fact
	(lambda (x)
		(if (<= x 0) 1
			(* x (fact (- x 1))))))

(define n (read))
(define m (read))
(set! n (div (mod n (* m 1000)) 1000))
(print (if (= n 0) 1 (div (div (fact m) (fact n)) (fact (- m n)))))