#!/usr/bin/perl

if (2 != (scalar @ARGV) and 1 != scalar @ARGV) {
  print STDERR "Usage: solve.pl <words> <grid>\n";
  exit;
}

system ("./search.pl $ARGV[0] $ARGV[1] | ./showgrid.pl $ARGV[1] > $ARGV[1].answergrid");
print "$ARGV[1].answergrid written.\n";