sub binomial {
    use bigint;
    my($n,$k) = @_;
    (0+$n)->bnok($k);
}