!7

sS concepts = [[
  qhwrrglkfrbixwov - X has text Y.
  jqqmoikhpezdzszn - X has Y line(s).
  ygoumdrmuwqzeesj - How many line(s) does X have?
  lefmtqojfaiukfke - How many
  kcbifqeqvsidsios - -> a text
]];

sS statements = [[
  kcbifqeqvsidsios has text "hello world\nhello again".
]];

p-tt {
  myTruth(concepts, statements);
  
  // number-of-lines evaluator
  addLispEvaluator("ygoumdrmuwqzeesj", new F1<Lisp,Int>() {
    Int get(Lisp l) {
      S text = lispForwardRaw("qhwrrglkfrbixwov", l.get(0));
      //print("Text: " + struct(text));
      ret text != null ? countLines(text) : null;
    }
  });
  
  lispAnswerQuestion_verbose("How many line(s) does kcbifqeqvsidsios have?");
}