my %bits_from_name = ( GH => 0b1000, GT => 0b0111, YH => 0b1001, YT => 0b0110, BH => 0b1010, BT => 0b0101, RH => 0b1011, RT => 0b0100, );
my %bits_from_name = ( GH => 0b1000, GT => 0b0111, YH => 0b1001, YT => 0b0110, BH => 0b1010, BT => 0b0101, RH => 0b1011, RT => 0b0100, );