#!/usr/bin/perl

##use strict;
use Biblio::Thesaurus;
#use Biblio::Thesaurus::ModRewrite::Embed;

my $obj = thesaurusMultiLoad(@ARGV); ### Erro: not an HASH

__END__

my $obj = thesaurusLoad(shift(@ARGV));
$obj->appendThesaurus(@ARGV);
$obj->save("___");
__END__
my $obj = thesaurusMultiLoad(@ARGV); ### Erro: not an HASH
## Not a HASH reference at /usr/local/share/perl5/Biblio/Thesaurus.pm line 269

__END__
del_trans_red($obj,"BT");
del_trans_red($obj,"NT");
del_trans_red($obj,"IS-A");

OML del_trans_red(rel)
 begin => sub{ print "..."}.
 $a rel $b AND $b rel $c AND $a rel $c => sub {print "delete $a ",rel," $c\n"}.
 end => sub { print "#{\n}\n"; }.
ENDOML