+<:
+use utf8;
+use strict;
+use warnings;
+use open IO => ':utf8';
+
+our $VERSION = '1.0';
+
+$header{content_type} = 'text/html; charset=utf-8';
+
+:><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
+ "http://www.w3.org/TR/html4/loose.dtd">
+<html>
+
+<head>
+<title>digraph cheat sheet</title>
+<meta http-equiv="content-type" content="utf-8">
+<style>
+h1 {
+ text-align: center;
+ margin: 0 auto 0.2em;
+}
+table {
+ border-collapse: collapse;
+ table-layout: fixed; /* prevent resizing, notably in msie6 */
+}
+thead th, td {
+ width: 1.2em; /* msie only looks at the first row */
+ min-width: 1em; /* prevents gecko from restricting to page width */
+}
+th, td {
+ text-align: center;
+}
+td {
+ border: 1px solid #888;
+ background: #DDD;
+}
+td.any {
+ background: #FFF;
+}
+</style>
+</head>
+
+<body>
+<h1>RFC-1345 Digraphs</h1>
+<:
+my $di = do 'digraphs.inc.pl';
+
+sub quote {
+ local $_ = shift;
+ s/"/"/g;
+ s/</</g;
+ s/>/>/g;
+ return $_;
+}
+
+my @chars = ((map {chr} ord '!' .. ord 'Z'), 'a'..'z');
+splice @chars, $_, 1, () for 2, 3-1, 5-2, 31-3; # remove character exceptions # $ & @
+print '<table>';
+print '<thead><tr><th> ';
+print "<th>$_" for @chars, '_';
+print '<tbody>';
+for my $c1 (@chars) {
+ print "<tr><th>$c1";
+ for my $c2 (@chars, '_') {
+ my $mnem = $c1 . $c2;
+ if (not defined $di->{$mnem}) {
+ print '<td>';
+ next;
+ }
+ my $chr = $di->{$mnem};
+
+ my @class = 'any';
+
+ printf '<td class="%s" title="%s">%s',
+ join(' ', @class), quote($mnem), quote(chr $chr);
+ }
+ print "\n";
+}
+print "</table>\n";
+