#!/usr/bin/perl
use FindBin qw($Bin);
use lib "$Bin/../lib";
use Biblio::Thesaurus::ModRewrite::Embed;
use Biblio::Thesaurus;
OML test(term)
$a 'city-of' term => del($a 'city-of' term).
ENDOML
my $obj = thesaurusLoad('geografia.iso');
test($obj,'Portugal');
#test('geografia.iso','Portugal');
#test('/home/smash/LOCAL/mestrado/natura/Biblio/modrewrite.r6656/examples/geografia.iso','Portugal');