on *:input:*: {
  if !badekle isin $1 {
    .auser bad $2
    echo -a $2 Listeye Eklenmi?tir
  }
  if !badsil isin $1 {
    .ruser bad $2
    echo -a $2 Liste'den Silinmi?tir
  }
  if !badlist isin $1 {
    var %s 1 
    while (%s <= $ulist(*,bad,0)) {
      echo -a $ulist(*,bad,%s)
      inc %s
    } 
  }
}