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