alias kekle {
  if $1 {
    if $read(kufur.txt,w,$1) {
      echo -at $1 kelimesi zaten listede. 
      return
    } 
    else { 
      write kufur.txt $1 
      echo -at $1 kelimesi listeye eklendi. 
    }
  }

alias ksil {
  if $1 {
    if !$read(kufur.txt,w,$1) {
      echo -st $1 kelimesi listede yok. 
      return
    } 
    else {
      write $+(-dl,$readn) kufur.txt 
      echo -st $1 kelimesi kufur listesinden silindi.
    }
  }


alias klist {
  var %s = 1,%ss = $lines(kufur.txt) 
  while %s <= %ss { 
    echo -a Kelime: $read(kufur.txt,%s) 
    inc %s 
  }
}

;KOD
on @*:text:*:#:{
  var %s = 1,%ss = $lines(kufur.txt) 
  while %s <= %ss { 
    if $+(*,$read(kufur.txt,%s),*) iswm $1- { 
      ban -k # $nick 2 küfür yasak vs. 
    } 
    inc %s
  }
}