<(common.inc.plp)><:
Html({
title => "unicode sampler",
version => '2.0',
stylesheet => [qw'light dark mono red'],
});
open my $source, '<', 'data/unicode-sampler/unicode.txt'
or die "Could not open text: $!\n";
my $title = readline $source;
my $hr = readline $source;
say "$title
";
say '';
while (my $p = readline $source) {
print EscapeHTML($p);
}
say "\n";