#!/usr/bin/perl

use jspell;
use locale;

if( -e "_pro.rad") {}
else { 
  jspell_dict("port");
  print "wait pelase...\n";
  mkradtxt("/home/jj/public_html/pln/proverbio.dic","_pro.rad");
  print "ok.\n";
}

while(<>){
  chop;
  print join("\n",nlgrep1($_,"_pro.rad"));
  print "\n----------------\n";
}