<(common.inc.plp)><:
my $mapfile = sprintf 'map-%s.nld.tsv', $Request || 'numbers';
open my $table, '<', $mapfile;
my ($title, $description) = split /\t/, readline $table;
Html({
title => $title,
version => '1.0',
data => [$mapfile],
description => $description,
raw => '',
});
say "
\u$title
";
say "
$description
";
say '
';
while (my $row = readline $table) {
my @cols = split /\t/, $row;
@cols > 1 or last;
say '' if $. == 3;
print '