let readdir dir =
  try Sys.readdir dir with | e -> error ~opn: "readdir" ~fn: dir ~e