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
  }
  return $gettok($sorttok(%m,32,nr),1-10,32)
}