use ddmf;
  use jspell;

  interpret(
    mkddmf(
      sub{my $a=shift;
         [(`grep -w $a /home/jj/public_html/pln/proverbio.dic |head -200`)]},
      {id => "provérbios"}));