#   This script pops the stack empty but doesn't change 
#   the current directory

      set i = `dirs | wc -w`
      set OldDir = $cwd
      @ i--
      while ($i)
         popd > /dev/null
	 @ i--
      end
      chdir $OldDir
      ls