sub bc { 
$r=1;$r*=$_/($_[0]-$_+1)for(1+pop..$_[0]);$r
}