$ perl -e '
    use bigrat;

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

    print "$cf\n";
    print "  $n\n";
    print " $d\n";
'
7/12
  7
 12