alias Ranked {
  var %count = $var(%GoodAnswer.*,0)
  if ($window(@Sort,state)) { window -c @Sort }
  window -h @Sort
  while (%count) {
    aline @Sort $var(%GoodAnswer.*,%count) $var(%GoodAnswer.*,%count).value
    dec %count
  }
  filter -wwucte 2 32 @Sort @Sort *
  var %x = 1
  while (%x <= 5) {
    echo -a Variable Name: $gettok($line(@Sort,%x),1,32) -- Value: $gettok($line(@Sort,%x),2,32) -- Name: $right($gettok($line(@Sort,%x),1,32),-5)
    inc %x
  }
  window -c @Sort
}