#!/usr/bin/perl
use Math::BigRat;

for (my $n=1; $n <5;$n++)
{
 my $binomial = Math::BigRat->new($n);

 for (my $j=1; $j<=$n;$j++)
 {
  $binomial->bnok($j);
  my $binomial_coefficient = $binomial->as_float();
  print "$n.C.$j = " . $binomial_coefficient;
  print " ";
 }
print "\n";
}