@program altwho.muf
1 10000 d
i
$include $lib/alynna
: main
0 array_make_dict var! hosts
online_array foreach swap pop var! target
 target @ 
 hosts @
 { 
  target @ descrleastidle descripnum 
  target @ name
 }array array_nested_set
 hosts !
repeat

"AltWho listing by host" header tellme
hosts @ foreach var! alts var! host
{
 "^YELLOW^"
 host @ 16 lj
 "^GREEN^"
 { alts @ foreach swap pop name repeat }array array_commas
}tell
repeat 
{ "Total " hosts @ array_count " unique hostnames." }cat footer tellme
;
.
c
q