how to calculate factorial or combination in NetLogo?

Question

to setup clear-all ;comb 4 2

reset-ticks end

to comb [ #n #k ] ; combinations of n things k at a time, k < n let combination (reduce * n-values #k [ ? + #n