choose n k
Here's how to compute 'n choose k' like a real nerd.
Source code:
fold mul 1 [transpose [list [iterate $k "flip - 1" $n] [enum_from_to 1 $k]]]