#!/usr/exp/bin/perl

#0 0 [3.1] ([2.1] )
#0 0 [3.1] ([2.2] )
#0 0 [3.1] ([2.3] )

$interpretations = shift || 'interpretations';

open(INTERPRETATIONS,$interpretations) || die"can't open $interpretations:$!\n";
while (<INTERPRETATIONS>) {
	($atom,$action) = split(":",$_,2);
	$interpret{$atom} = $action;
}

while (<>) {
       next if /^>/;
       s/^[^ ]+ +[^ ]+ +//;
       chop;
       system($interpret{$_});
}
