use Math::BigRat;
use bignum;

my $cf = 1 - 1/6 - 1/4; ## $cf = 7/12                                          \
                                                                                
my $n = $cf->numerator();
my $d = $cf->denominator();

print "$cf\n";
print "  $n\n";
print " $d\n";