static LPair<S, Long> listFileNamesPlusSomeInfo_1(File dir) {
  ret map(listFiles(dir), func(File f) -> Pair<S, Long> {
    pair(f.getName(), f.isDirectory() ? -1 : fileSize(f))
  });
}

static LPair<S, Long> listFileNamesPlusSomeInfo_1(S dir) {
  ret listFileNamesPlusSomeInfo_1(newFile(dir));
}