#!/usr/bin/perl
use jspell;
use Data::Dumper;
jspell_dict("port");

print(any2str({onethat({CAT=>"np"},fea("Porto"))}, "compact"));
print(any2str({onethat({CAT=>"np"},fea("Suíça"))}, "compact"));