sub dir-is-empty ($d) { not dir $d }