#
#

sub brmap
{
  my ($tag) = @_;

  if ($tag eq "ambiguous") { return "main"; } # To test [F]unction
  if ($tag eq "x")         { return "main"; } # To test [B]oth

  return "";
}