sub print_japanese_synonyms
{
 my ($current_term_id) = @_;
 my $term = $gJATermHash{$current_term_id};

 print $gOutputFileObj "\t\t<synonyms language=\"JA\">\n";
 if ($term) {
  my $pref_term = $term->get_preferred();
  my @synonyms = $term->get_synonyms();

  print $gOutputFileObj "\t\t\t<synonym string=\"$pref_term\" preferred=\"YES\"/>\n";
  foreach my $syn (@synonyms) {
   print $gOutputFileObj "\t\t\t<synonym string=\"$syn\"/>\n";
  }
 } else {
  # If there is no Japanese term for this term id, write out the Japanese "general term" string.
  print $gOutputFileObj "\t\t\t\<synonym string=\"\x{4E00}\x{822c}\x{7528}\x{8A9E}\" preferred=\"YES\"/>\n";
 }
 print $gOutputFileObj "\t\t</synonyms>\n";
}

##</code><code>##

sub open_output_file
{
 $gOutputFileObj = new IO::File $gOutputFile, "w";
 die "Can't open output file $gOutputFile.\n",
  "Error in file: \"", __FILE__, "\", at line: ", __LINE__, "\n" unless $gOutputFileObj;
 binmode($gOutputFileObj, ":utf8");
}