alias tara {
  var %a = 1, %b = 0
  while $read(hatalikullanici.txt,%a) { var %v1 $v1
    if $ulist(%v1,bad,1) { var %bad = $addtok($+(%v1,|,$v1) -/-,%bad,32) | inc %b }
    inc %a
  }
  echo -a Eslesen kullanıcı sayisi: %b 
  $iif(%bad,echo -ea $qt(Users Eslesen: ) %bad)
}