;Sintaxe: WordInFile(palavras.txt,String)
alias WordInFile {
  var %str = $2-
  var %file = $1

  var %i = $lines(%file)
  while (%i >= 1) {
    if (* $+ $read(%file,%i) $+ * iswm $2-) {
      return $true
    }
    dec %i
  }
  return $false
}