static void splitJavaFiles(L<S> tok) ctex {
  L<Int> indexes = jfindAll(tok, "package");
  if (empty(indexes) || indexes.get(0) != 1)
    indexes.add(0, 1);
  for (int i = 0; i < l(indexes); i++) {
    int from = indexes.get(i);
    int to = i+1 < l(indexes) ? indexes.get(i+1) : l(tok);
    L<S> subtok = cncSubList(tok, from, to);
    S src = join(subtok);
    //print(shorten(src, 80));
    S pack = tok_packageName(subtok);
    print("Package: " + quote(pack));
    L<L<S>> classes = allClasses(subtok);
    for (L<S> c : classes) {
      //print("  Class: " + shorten(join(c), 80));
      print("  Class: " + quote(getClassDeclarationName(c)));
    }
    if (empty(classes))
      print("No classes?? " + quote(src));
    else if (l(classes) == 1) {
      S fileName = addSlash(pack.replace('.', '/')) + getClassDeclarationName(first(classes)) + ".java";
      print("File name: " + fileName);
      saveTextFile("output/" + fileName, join(subtok));
    } else
      fail("Not supported");
    print();
  }
}