use bigrat;
my $x = 1;
print $x->numerator, "\n";