set %lines $lines(scripts\palavras.txt)
    var %a 0
    while (%a <= %lines) {
      inc %a
      if ($read(scripts\palavras.txt,%a) isin $1-) { $verac  } | else {
      }
    }