use ddmf;
use jspell;
jspell_dict("port");
  
  $rr=[
    [sub{my $ff=shift;
              ($ff->{FSEM} eq "mento") },
     sub{my $ef= shift;
       delete($ef->{FSEM});
       $ef->{semantic}= "The action of '$ef->{rad}'";
       if($ef->{T} ne "i"){#not intransitive
         $ef->{grammar}= "It accepts the preposition phrase 'de' with the direct
                     attribute"; }
       $ef} 
     ],
     rren("G","gender"),
     rren("rad","radical"),
     rren("N","number"),
     subs("s","singular"),
     subs("m","masculine"),
     subs("nc","common name"),
  ];

  interpret(mkddmfrr($rr,sub{[fea(shift)]})) ;