!759

// [=[ doesn't work yet, but no time to hunt for this...

static S input = [[
  if   [User < says < what < is < a < XY]
  and  [XY < can < be < split < in < 2 < as < X < and < Y]
  and  [X < is < an < adjective]
  then [say < maybe < [a > XY] is < [a > Y] < that < is < [very > X] ]
]];

p {
  // parse lines
  for (S s : toLinesFullTrim(input)) {
    printStructure(snlToTree(s));
  }
  
  // parse all
  print();
  Lisp tree;
  time {
    tree = snlToTree(input);
  }
  printStructure(tree);
}