alias rword {
  var %m = $read(words.txt)
  return $gettok(%m,$r(1,$numtok(%m,32)),32)
}