static long guessClusteredDirSize(File dir, O... _) {
  optPar O pred; // F1<File, Bool>
  long n = 0;
  long clusterSize = assumedClusterSize();
  for (File f : pred == null ? findAllFiles_noDirs(dir) : findAllFiles_noDirs_pred(dir, pred))
    n += roundUpTo(clusterSize, f.length());
  ret n;
}

static long guessClusteredDirSize() {
  ret guessClusteredDirSize(programDir());
}