!7

p-exp {
  PTElement tree1 = ai_parseBottomUpToTree("my mother");
  PTElement tree2 = ai_parseBottomUpToTree("my brother");
  
  matchTrees(tree1, tree2);
}

svoid matchTrees(PTElement a, PTElement b) {
  PTElement a2 = ai_parseTree_descendToComposite(a);
  PTElement b2 = or(ai_parseTree_descendToComposite(b);
  
  if (isNull(a2) != isNull(b2))
    ret with print("Composite vs non-composite: " + a + " / " + b);
    
  if (a2 == null)
    ret with print("Non-composites: " + a + " / " + b);
    
  print("Composites: " + a + " / " + b);
}