my $n = 5;
my $k = 2;
my $x = Math::BigInt->new($n);
my $z = $x->bnok($k);
printf("$n choose $k = %d\n", $z);