:></li>
</ul>
+<hr>
+<h2>256-colour space</h2><ul>
+<:
+for my $r (0 .. 5) {
+ print '<li><table>';
+ for my $g (0 .. 5) {
+ print '<tr>';
+ for my $b (0 .. 5) {
+ print colcell($r*6*6 + $g*6 + $b + 16, map { $_ && $_*40 + 55 } $r, $g, $b);
+ }
+ }
+ print "</table>\n";
+}
+print "\n";
+
+print '<li><table><tr>', (map { colcell(232+$_, ($_*10 + 8) x 3) } $_ .. $_+11), "</table>\n"
+ for 0, 12;
+print "\n";
+:></li>
+</ul>
+