alias top {
var %i = $var($1,0),%r,%n = 1,%t = $iif($prop isnum,$prop,5),%d
while (%i) { set -u0 % $+ $($var($1,%i),2) $var($1,%i) | %r = %r $($var($1,%i),2) | dec %i }
%r = $sorttok(%r,32,nr) | tokenize 32 %r
while (%n <= %t) && ($($ $+ %n,2)) { %d = $addtok(%d,$(% $+ $($ $+ %n,2),2),44) | inc %n }
return %d
}