alias top10 {
  var %x = 1
  while ($ini(D-Coins.ini,%x)) {
    var %t = $v1
    var %y = 1
    while ($ini(D-Coins.ini,%t,%y)) {
      var %i = $v1
      if (%i == coins) {
        var %m = %m $readini(D-Coins.ini,%t,%i) $+ < $+ %t $+ >
      }
      inc %y
    }
    inc %x
  }
  var %g = $sorttok(%m,32,nr)
  var %l = 1
  while (%l < 10) {
    if ($gettok(%g,%l,32)) {
      noop $regex($gettok(%g,%l,32),/(\d+)<(\S+)>/)
      var %n = $iif($numtok($bytes($regml(1),bd),44) == 4,$replace($gettok($bytes($regml(1),bd),1-2,44),$chr(44),.) $+ b,$iif($numtok($bytes($regml(1),bd),44) == 3,$replace($gettok($bytes($regml(1),bd),1-2,44),$chr(44),.) $+ m,$iif($numtok($bytes($regml(1),bd),44) == 2,$replace($gettok($bytes($regml(1),bd),1,44),$chr(44),.) $+ k,$regml(1))))
      var %r = %r 10 %l $+ 2:4 $regml(2) 10 $+($chr(91), $+ 7 $+ %n $+, $+ 10 $+ $chr(93))
      inc %l
    }
    else { break }
  }
  return %r
}