my $type = grep(/^\*/, $B1, $B2) ? "S" : "I";