Listing 3: .dirlist

set noglob
set dir_num = 0
foreach dir ( `dirs` )
echo "$dir_num	$dir"
@ dir_num++
end
unset noglob