static Map<S, Long> conceptFileSizesByProgram() {
  new Map<S, Long> map;
  for (S programID : programsWithData()) {
    long l = conceptFileSize(programID);
    if (l != 0) map.put(programID, l);
  }
  ret mapSortedByValueDesc(map);
}