die "huh colour $colournum?" unless defined $part;
return 0 unless $part =~ m/[$wparts]/o;
print STDERR "$0: including colour $colournum ($knife $part)\n";
die "huh colour $colournum?" unless defined $part;
return 0 unless $part =~ m/[$wparts]/o;
print STDERR "$0: including colour $colournum ($knife $part)\n";