#!/usr/bin/perl
# PODNAME: kpss
# ABSTRACT: command line to create and print a kPSS

use Lingua::SynSet::kPSS;
use Data::Dumper;

my @terms = @ARGV;
unless (@terms) {
  print "Usage: \$ kpss term1 term2 ... \n"; 
  exit;
}

my $t = shift @terms;
my $kpss = kpss_create($t);
foreach (@terms) {
  $pkss = kpss_union($kpss, kpss_create($_));
}

print Dumper kpss_flatten($kpss);