// lines are in the format Q => A
svoid lispCheckQuestionsVerbose(S questionsAndAnswers) {
  for (S s : toLinesFullTrim_java(questionsAndAnswers)) {
    new Matches m;
    if (flexMatchIC("* => *", s, m)) {
      L<S> answers = lispSolveQuestionVerbose($1);
      if (l(answers) != 1 || !match($2, first(answers)))
        print("  FAIL");
    }
  }
}