#! /usr/bin/gawk -f
# Last edited on 2000-05-22 03:31:43 by stolfi

BEGIN {
  abort = -1;
  usage = ( ARGV[0] " [ -v complex=BOOL ] < INFILE.wsp > OUTFILE.wsp" );

  # Reads a sequence of EVA words, processed by split-words. Determines
  # whether each word is simple (has a single core and a single
  # coremantle). By default, writes to standard output simple ones. If
  # "complex" is 1, writes the non-simple ones.

}

(abort >= 0) { exit abort; }

// {
  if ($0 ~ /[)>].*[<(]/) 
    { if (complex) { print;} }
  else
    { if (! complex) { print; } }
  next;
}