@verb #6017:"mice win2list" none none none rdo #6017
@program #6017:"mice win2list" none none none
"Copied from James (#6397):win2list Aug  8 16:14:58 1998"
"Copied from Drag (#7113):win2list Aug  7 21:36:33 1998"
player:tell($string_utils:columnize({"Name", "Numbers"}, 2))
player:tell($string_utils:columnize({"----", "-------"}, 2))
for x in ($list_utils:reverse($list_utils:sort_alist(#6397:winlist(), 2)))
  player:tell($string_utils:columnize({$string_utils:nn(x[1]), tostr(x[2])}, 2))
endfor
player:tell($string_utils:columnize({"----", "-------"}, 2))
.