DB<288> sub fac {my $x=1; $x*=$_ for 2..$_[0]; $x}

  DB<289> sub binom { my ($n,$k)=@_; fac($n)/(fac($n-$k)*fac($k)) }

  DB<290> binom 26,8
 => 1562275