#!/usr/bin/env perl
-use 5.010;
+use 5.014;
+BEGIN { push @INC, '.'; }
use Shiar_Sheet::Colour 1.05;
+say "# automatically generated by $0";
say 'use strict;';
say '+{';
my @names;
next;
}
+ splice @pal, 8 if "@pal[0..7]" eq "@pal[8..15]";
+
say qq("$name" => {);
say qq(\ttitle => '$name',);
say qq(\tparent => 'cga',);