Untitled

alias hfruitRanks {
  ;;$fruitRank(Rank) returns "Ranked rank is nick with score.";;
  window -h @list1
  window -h @list2
  var %a 1
  while ($var(%cash*,%a)) {
    aline -a @list1 $($v1,2) $right($v1,-5)
    inc %a
  }
  filter -wwteuc 1 1 @list1 @list2
  var %b $line(@list2,$1)
  var %c $line(@list2,0)
  .timer 1 0 close -@ @list*
  if ((%b == $null) && (%c isnum)) {
    return Error! The lowest rank is $gettok(%c,1,32) $+ .
  }
  else {
    return Ranked $ord($1) is $gettok(%b,2,32) with $c2 $+ $+($bytes($gettok(%b,1,32),b),gp,.)
  }
}