#!/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));

my @tran = qw{ NT1 };

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

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

# $a rel $b AND $b rel $c AND $a rel $c => sub {print "JJdelete $a ",rel," $c\n"}.
# $a rel $b AND $b rel $c => sub {print "JJdelete $a ",rel," $c\n"}.
# $a rel $b AND $b rel $c AND $a rel $c => del($a rel $c).