!7

p-exp {
  S sentence = "Are atomic bombs powerful devices ?";
  S pat = "Are <noun> <noun>?";
  
  L<S> tokPat = javaTokWithAngularBracketsC(pat);
  L<S> tokS = javaTokWithAngularBracketsC(sentence);
  
  printStruct(tokPat);
  printStruct(tokS);
  
  int extra = l(tokS)-l(tokPat);
  L<Int> indices = indicesOfAngleBracketVars(tokPat);
  if (extra <= 0 || empty(indices)) ret with print("Not applicable");

  for (L<Int> spread : allSpreads(extra, l(indices))) {
    new L<S> tok;
    int pos = 0, iSpread = 0;
    for i over tokPat:
      if (!isAngleBracketed(tokPat.get(i)))
        tok.add(tokS.get(pos++));
      else {
        int take = spread.get(iSpread++);
        tok.add(joinWithSpace(subList(tokS, pos, pos+take+1)));
        pos += take+1;
      }
    printStruct(tok);
    print(joinWithSpace(map curlyBraceOptIfMoreThanOneToken(tok)));
  }
}