: choose ( n k -- nCk ) 1 swap 0 ?do over i - i 1+ */ loop nip ;

 5  3 choose .   \ 10
33 17 choose .   \ 1166803110