sub ___{ ($n,$k)=@_;$r=1;$r*=$n/($n-$k),$n--while$n>$k;$r; };