alias pb.top10 {
 var %x 1
 while (%x <= $hget(pb.top10,$address($nick,5)) {
 hadd pb.top10 $address($Nick,5) %x
 }
else { inc %x }
 }