let iter_dir f dirname = let d = Unix.opendir dirname in try while true do f (Unix.readdir d) done with End_of_file -> Unix.closedir d