alias organize {
  var %x = 1
  var %o = $lines(highscore.txt)
  while (%x <= %o) {
    write temp.txt %x $findhighest %e
    write -dl $+ %a highscore.txt
    inc %x
  }
}
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)  {
      var %greatest $v1
      var %g = $gettok($read(highscore.txt,%i),1,32)
      set %a %i
      set %e %greatest
    }
    inc %i
  }
  return %g
}