#!/usr/bin/perl
use strict;
use warnings;
use WebService::Google::Sets qw(get_large_gset get_gset);
use Getopt::Std;
use File::Basename;


my %opts;
getopts('ls', \%opts); # see usage for full details;


my @words = @ARGV;
my $expanded_set;


# do sanity checks and exit if they fail.
usage() if (scalar @words > 5 || scalar @words < 1);
usage() if ($opts{'s'} && $opts{'l'});


# get a big set if we were asked for one else default to a small one.
if ($opts{'l'}) {
  $expanded_set = get_large_gset(@words);
} else {
  $expanded_set = get_gset(@words);
}

for my $set_element (@$expanded_set) {
  print "$set_element\n";
}

#----------------------------#

sub usage {
  my $app = basename($0);
  die "$app: [-s|-l] <word> [additional words]\n";
}