my $type = $B1 =~ /^\*/ || $B2 =~ /^\*/ ? "S" : "I";