perl -e 'use bigrat;for my $n (1..5){my $s=0;for my $i (1..$n) {$s+=($n+1-$i)/$i} push @nums, $s->numerator; push @dens, $s->denominator; $num=$s->numerator; $den=$s->denominator; print "n = $n, s = $s, num=$num, den=$den\n";} print "nums=",(join ", ",@nums), "\n"; print "dens=",(join ", ",@dens),"\n";'