# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+use warnings;
use strict;
use Maasha::Biopieces;
use Maasha::Seq;
undef $record;
-if ( $type eq "protein" ) {
+if ( $type eq "PROTEIN" ) {
$bit_max = 4;
} else {
$bit_max = 2;