alias snumb {
  var %x = 1
  while ($read(blacknews.txt, %x)) {
    if ($gettok($read(blacknews.txt,%x),1,32) == $1) {
      inc %numbs. [ $+ [ $1 ] ]
      inc %x
    }
  }
  return %numbs. [ $+ [ $1 ] ]
}