static ReadingComprehensionTest ai_parseReadingComprehensionTest_v1(S rawText, O... _) {

  optPar bool printText = true;

  new ReadingComprehensionTest test;

  LS paragraphs = pnlStructIf(printText, paragraphsTokC(rawText));

  L<Bool> isQ = map(rcurry_swic("Question"), paragraphs);

  int idx = falsesFollowedByTrues_changeIndex_assertNotNull(isQ);

  LS textPart = takeFirst_clone(paragraphs, idx);

  LS questionsPart = sublist(paragraphs, idx);

  if (isPreciseMultiDashesHeading(first(textPart))) popFirst(textPart);

  test.text = joinWithEmptyLines(textPart);

  test.sentences = pnlIf(printText, sentences(test.text));

  for (S s : questionsPart) {

    LS lines = tlft(s);

    assertEquals(4, l(lines));

    assertStartsWith(first(lines), "Question ");

    S q = second(lines);

    LS answersOnLine = regexpGroups("^1(.+)2(.+)$", third(lines));

    assertNempty(answersOnLine);

    LS answersOnLine2 = regexpGroups("^3(.+)4(.+)$", last(lines));

    assertNempty(answersOnLine2);

    LS answers = trimAll(concatLists(answersOnLine, answersOnLine2));

    add(test.questions, nu(ReadingComprehensionTest.Question.class, question := q, +answers));

    print(q);

    printStruct(answers);

  }

  ret test;

}