say 'use strict;';
say '+{';
my @names;
+my %seen;
for my $path (@ARGV) {
open my $theme, '<', $path or do {
$huesum > 3 or next; # require number of significant hue changes
#TODO tweak to include good-pants, exclude cheesecake-*
+ if ($seen{"@pal"}++) {
+ warn "ignore duplicate palette $name\n";
+ next;
+ }
+
say qq("$name" => {);
say qq(\ttitle => '$name',);
say qq(\tparent => 'cga',);