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