!752

sclass Text {

  S title;

  new L<S> lines;

}

static new L<Text> texts;

p {

  L<Snippet> snippets = listSnippetsOfType(48); // "Natural Language"

  for (Snippet sn : snippets) pcall {

    if (parseSnippetID(sn.id) < 1003000) break;

    L<S> lines = toLinesFullTrim(loadSnippet(sn.id));

    int i = 0;

    while (i < l(lines)) {

      assertTrue(lines.get(i+1).startsWith("-"));

      new Text text;

      text.title = lines.get(i);

      i += 2;

      while (i < l(lines) &&

        (i+1 >= l(lines) || !lines.get(i+1).startsWith("-")))

        text.lines.add(lines.get(i++));

      texts.add(text);

    }

  }

  print("Got " + n(l(texts), "text") + " (" + structure(collect(texts, "title")) + ")");

}