my $i;
my $format = "format STDOUT =\n"
			 . '@>>> '
			 . '@' . '<' x ($longest + 3)
			 . " @<<<<\n"
			 . '$i, $results[$i]->[0], $results[$i]->[1]'
			 . "\n.\n";

print $format;
eval $format;
die $@ if $@;

for $i (0..9) {
	write;
}

##</code><code>##

my $i;

format STDOUT_TOP=
Rank Name                  Posts
--------------------------------
.
format STDOUT =
@||| @<<<<<<<<<<<<<<<<<<<< @<<<<
$i, $results[$i]->[0], $results[$i]->[1]
.

for $i (0..9) {
	write;
}

##</code><code>##

my $picture = '@||| @' . '<' x $longest . "@<<<<\n";
for my $i (0..9) {
	formline($picture, $i, $results[$i]->[0], $results[$i]->[1]);
}
print $^A; # use English; print $ACCUMULATOR;