#!/usr/bin/perl

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

die ("usage $0 file*\n") unless @ARGV;

## my $obj = thesaurusMultiLoad(@ARGV);
my $obj = thesaurusLoad(shift(@ARGV));

##$obj->save("___"); ## OK

#my @tran = qw{ BT NT IS-A };
my @tran = qw{ BT NT NT1};

for (@tran){print "Proc $_:\n";  del_red_trans($obj,$_);}
$obj->save("___");

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