Select Code to Download

#! /usr/bin/perl -wl

...
for (1 .. 23) {
    print join ' ', $_, f1($_), f2($_);
}

sub f3 {
    my $n    = shift;
...

    return $t3 + $t5 - $t15;
}