alias organize {
  /copy -o highscore.txt hs.txt
  /write -c temp.txt  
  var %n = 1 
  var %x = 1
  var %o = $lines(highscore.txt)
  while (%x <= %o) {
    var %w = $findhighest
    if (%last == %e) { 
      dec %n
    }    
    write temp.txt %n %w %e
    write -dl $+ %a highscore.txt
    inc %x
    inc %n
    var %last = %e
  }  
  unset %e
  unset %a
  /copy -o hs.txt highscore.txt
  /write -c hs.txt
}
alias findhighest {
  var %greatest $gettok($read(highscore.txt,1),2,32),%i 1,%t $lines(highscore.txt)
  while (%i <= %t) {
    if (($gettok($read(highscore.txt,%i),2,32) > %greatest) || (%t == 1)) {
      var %greatest $v1
      var %g = $gettok($read(highscore.txt,%i),1,32)
      set %a %i
      set %e %greatest
    }
    inc %i
  }
  return %g
}