#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Color::Spectrum qw{ generate };

my %binders = ( HISCLTFGR => 16,
                MQLFHLCLI => 8,
                WGMDIDPYK => 4,
                YVNVNMGLK => 3,
                AYRPPNAPI => 2,
                ELMNLATWV => 2,
                EYLVSFGVW => 1,
                FFPSIRDLL => 1,
                FLPSDFFPS => 1,
                IISCSCPTV => 1,
);


my %freq;
push @{ $freq{ $binders{$_} } }, $_ for keys %binders;

my @colours = generate(scalar keys %freq, '#FF0000', '#0060BF');
my %colour;
@colour{ @{ $freq{$_} } } = (pop @colours) x @{ $freq{$_} }
    for sort { $a <=> $b } keys %freq;

say "$_ : $colour{$_}" for keys %colour;


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,