alias toptm {
  var %x 1,%y 0.0
  while $var(%gamelv.*,%x) {
    var %a $v1,%b $(,$v1),%c2 $token($token(%y,-1,32),1,64)
    if (%b > %c2) {
      var %y %y %b $+ @ $+ $token(%a,2,46)
      var %y $sorttok(%y,32,nr)
      var %y $token(%y,1- $+ $1,32)
    }
    inc %x
  }
  var %z 1
  while $token(%y,%z,32) {
    tokenize 64 $v1
    var %d %d $iif(%d,$chr(45)) $+(%z,.) $2 (Level $bytes($1,bd) $+ )
    inc %z
  }
  return %d
}