Mine

n *:TEXT:!filter*:*: {
  if ($me == Tz-BOT) {
    if ($nick == Tez|Skrip) {
      if ($2 isnum) {
        %letval = $2
        %i = 1
        /write -c Wordlist.txt WOORDEN MET %letval LETTERS.
        while (%i <= $lines(lingodatabase.txt)) {
          if ($len($read(lingodatabase.txt,%i)) == %letval) {
            /write Wordlist.txt $read(lingodatabase.txt,%i)
            /inc %i
          }
          /inc %i
        }
      }
    }
    /msg $chan 4Filtered 07 $+ $calc($lines(wordlist.txt) - 1) 4words with 07 $+ %letval 4letters from 07 $+ $lines(lingodatabase.txt) 4words in database.
  }
}