alias -l top10m {
window -h @. | var %i 1
while $ini(stats.ini,%i) {
aline @. $gettok($v1,-1,46) $readini(stats.ini,$v1,messages))
inc %i
}
filter -cetuww 2 32 @. @.
var %i 1 | while %i <= 10 {
var %list $addtok(%list,$line(@.,%i),44)
inc %i
}
msg $1 Top 10 (messages) are: $replace(%list,$chr(44),$+($chr(44),$chr(32)))
window -c @.
}