alias dify {
  if ($1) {
    var %letters $1, %line 1
    while ($read(a.txt, %line)) {
      var %word $v1, %found 1, %i 1
      while (%i <= $len(%letters)) {
        if (!$pos(%word, $mid(%letters, %i, 1))) {
          %found = 0
          break
        }
        inc %i
      }
      if (%found) write b.txt %word
      inc %line
    }
  }
  else echo -a Kullanım: /dify harfler
}

alias liste {
  if ($1) {
    echo -a $1 dosyasındaki kelimeler:
    var %line 1
    while ($read($1, %line)) {
      echo -a $v1
      inc %line
    }
  }
  else echo -a Kullanım: /liste a.txt - /liste.b.txt
}