alias pickupranks {
  var %x 1
  while (%x <= 2) {
if ($read(top10.txt,$address($hget(pb.users,%x),5))) != $null) {
write top10.txt $address($hget(pb.users,%x),5)
write top10.txt $address($hget(pb.users,%x),5)
    }
if ($read(top10.txt,$address($hget(pb.users,%x),5))) == $null) {
write top10.txt $address($hget(pb.users,%x),5) 1 
write top10.txt $address($hget(pb.users,%x),5) 1
    }
    inc %x
  }
}