==> ex8 <== interpret(mkddmf(\&fea));
==> ex9 <== interpret( mkddmf( sub{ [(`grep -w $w proverbio | head -200`)]},
==> ex10 <== interpret( mkddmf( nlgrep(proverbio.dic
==> ex11 <== interpret( mkmttab(f1
==> ex12 <== interpret(mkddmfrr($rr,fea
==> ex13 <== interpret(mkmtff(calao,{lang => "pt", id=> "dac"} ));
==> ex14 <== 
  d1 = mkddmf(nlgrep(proverbio
  d2 = mkmttab(Linguafone/pt-en-sp
  d3 = mkddmfrr($rr,sub{[fea(shift)]},{id=>"d3"}) ;
  d4 = mkmtff("/home/jj/calao/calao",{id=>"d4", lang => "pt"} );
  d6 = mktagcompar([ $d4, $d1, $d2, $d3 ], {id => "4d"});

==> ex15 <==
  d1 = mkddmf(nlgrep(proverbio
  d2 = mkmttab(Linguafone/pt-en-sp
  d3 = mkddmfrr($rr,sub{[fea(shift)]},{id=>"d3"}) ;
  d4 = mkmtff("/home/jj/calao/calao",{id=>"d4", lang => "pt"} );
  d6 = mktagcompar([ $d4, $d1, $d2, $d3 ], {id => "4d"});
  subdict($d6, qw( gato piopardo cavalo elefante) );
  subdict($d6, {file => 1}, "ex15.lista");

==> ex16 <==
  r = Lingua::PT::speaker::toPhon($_);
==> ex17 <==
 d4 = mkmtff("lixo",{id => "dic com add", add => 1} );
 d4->add("batatas",{isa => "planta", "for" => "cozido"});
 interpret($d4);

==> ex18 <==
  d1 = mkddmf(nlgrep(proverbio
  d2 = mkddmf(nlgrep(ExemplosVilela
  d3 = mkddmfrr($rr,sub{ fea(shift) },{id=> "morf"}) ;
  d4 = mkmtff(calao,{lang => "pt", id=> "calao"});
  d6 = mktagcompar([$d4,$d1,$d3,$d2]);
==> ex19 <==
  d1 = mkddmf(nlgrep(proverbio
  d2 = mkddmf(nlgrep(ExemplosVilela
  d3 = mkddmfrr($rr,sub{ fea(shift) },{id=> "morf"}) ;
  d4 = mkmtff(calao,{lang => "pt", id=> "calao"});
  d5 = mkddmf(sub{ Lingua::PT::speaker::toPhon(shift);  },{id=> "phon"}) ;
  d6 = mktagcompar([$d4,$d1,$d3,$d2, $d5]);