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";'

##</code><code>##

#!/usr/bin/perl -w
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";