!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")) + ")");
}