#!/usr/bin/perl

use strict;
use warnings;

print <<'INTRO';
<p>Approximations to this node:</p>

<ul>
INTRO

my ($F,$G,$og)=(2,1,'');
while (1) {
    (my $g=sprintf '%0.6f', $G/$F) =~ s/^0\.//;
    last if $g eq $og;
    print "<li>[id://$g]</li>\n";
    ($F,$G,$og)=($F+$G,$F,$g);
}

print "</ul>\n";

__END__