static L<E> parsePoem(S input) {
  if (isSnippetID(input))
    ret loadPoemAndParse(input);
  ret parsePoem(toLinesFullTrim(input));
}

static L<E> parsePoem(L<S> lines) {
  char mode = ' ';
  new L<E> entries;
  for (S line : lines) {
    new E e;
    if (line.startsWith("!")) {
      e.test = true;
      line = line.substring(1).trim();
    }
    if (swicAny(line, litlist("Q:", "U:", "Usr:"))) {
      mode = 'q';
      line = line.substring(line.indexOf(':')+1).trim();
    } else if (swicAny(line, litlist("A:", "B:", "Bot:"))) {
      mode = 'a';
      line = line.substring(line.indexOf(':')+1).trim();
    } else if (startsWith(line, "["))
      mode = 's';
    if (mode == 'q')
      e.q = line;
    else if (mode == 'a')
      e.a = line;
    else {
      e.comment = getJavaLineComment(line);
      S s = javaDropComments(line).trim();
      e.state = dropPrefix("[", dropSuffix("]", s)).trim();
    }
    entries.add(e);
  }
  ret entries;
}