#!/usr/bin/perl -s 
use jspell;

our ($tag, $tagrad);

my $p = jspell::new("port");
$p->setmode({flags => 1});     # show  feature "flag" in output

while(<>){
  chop;
  if($tag){  print join(" ",$p->featags($_)). "\n"}
  elsif($tagrad){  print join(" ",$p->featagsrad($_)). "\n"}
  else    {  print any2str([$p->fea($_)],1) . "\n"}
}