#!/usr/bin/perl -s

use jspell;
jspell_dict("port");

%opt=();
$opt{sep}=$sep if $sep;
$opt{max}=$max if $max;
$opt{radtxt}=$radtxt if $radtxt;

my @a= nlgrep({%opt},@ARGV);

print join("\n======\n",@a),"\n";