on *:input:#: {
  if $1 == !aekle { write a.txt $2- | echo -a  $2-  dosyaya eklendi. }
  if $1 == !aoku {
    var %anti 1
    while %anti <= $lines(a.txt) {
      if ($2 * iswm $read(a.txt,%anti)) { echo -a $read(a.txt,%anti) }
      inc %anti
    }
  }
}

on *:input:#: {
  if $1 == !aekle { write a.txt $2- | echo -a  $2-  dosyaya eklendi. }
  if $1 == !aoku { filtre $2- * }
}
alias filtre $iif($isid,echo -a $1,filter -fk a.txt filtre $1-)