use Conclave::PSS;
use Data::Dumper;

my $o = Conclave::PSS->new;
#my $pss = $o->pss("color","main");
my $pss1 = $o->pss("cor");
my $pss2 = $o->pss("color");
my $pss3 = $o->pss("person");

print "cor\n", Dumper $pss1;
print "color\n", Dumper $pss2;
print "person\n", Dumper $pss3;

print "simil cor<->color: ", $o->simil($pss1, $pss2), "\n";
print "simil color<->person: ", $o->simil($pss2, $pss3), "\n";