alias aynikayit {
  if (!$1) { echo $color(info) * Lütfen tarama yapılacak dosyayı belirtin. Örnek: /Farklisay3 dosya.txt satirdaki-kayıt-pozisyonu-kacinci-kelime | Halt }
  if (!$2 || $2 !isnum) { echo $color(info) * Arama yapilacak kayıtın satirda kacinci kelime oldugunu belirtin.Eger sizin kayıt her satirda 2. kelime ise,  Ornek: /farklisay3 dosya.txt 2 | halt   }
  if !$isfile($1) { echo -a Dosya bulunamadı | halt }
  if $fopen(test) { .fclose test }
  set -e %dosyakyttxt $1
  set -e %str_sno_ $2
  .fopen test %dosyakyttxt
  var %tarama.bs $ticks , %ayni  , %f
  while ($fread(test)) {
    var %dgr = $gettok($v1,$2,32)
    if $var($+(%,j_,%dgr)) { inc %ayni_ [ $+ [ %dgr ] ] }
    var % $+ j_ $+ %dgr OK
    inc %f
  }
  .fclose test
  var %i = $var(%ayni_*,0), %topl
  write -c pattern.txt | echo -a $str(-,40) | echo -a [Kayit => Kac Kez Tekrar] | echo -a $str(-,40)  
  while %i {
    var %L = $remove($var(%ayni_*,%i),$chr(37),ayni_) , %N = $calc($var(%ayni_*,%i).value + 1)  
  echo -a  %L  => %N kez | write pattern.txt %L | inc %topl %N | dec %i }
  echo -a -
  echo -a Toplam  %f kayittan  $calc(%f - %topl) adet farklı,  $var(%ayni_*,0)  adet tekrarlayan, aynı kayit bulundu. 
  echo -a Bu işlem $calc($calc($ticks - %tarama.bs) /1000) saniye sürdü. 
  echo -a -
  echo -a Listede gordugunuz ilgili kayitlarin icerigi icin /detay kayit komutunu kullanabilirsiniz.  
  unset %ayni_* %tarama.bs
}
alias detay {
  if (!$1) { echo $color(info) * Listedeki Tekrarlayan Kayitlarin Detayina Bakilacak Kaydi Yazmadiniz. Ornek: /detay kayit | halt }
  if $fopen(test) { .fclose test }
  if !$patvar(pattern.txt,$1) { echo $color(info) * Listede Olmayan Hatalı kayit girdiniz. | halt }
  var %pattern = /^ $+ $replace($reptok($puttok($read(%dosyakyttxt),(.+),1-,32),(.+),$1,%str_sno_,32),$chr(32),\s) $+ /i $+ $
  .fopen test %dosyakyttxt
  echo -a  $1  kaydinin detaylari
  echo -a $str(-,15)
  while ($fread(test)) { var %n = $v1 | if ($regex(%n,%pattern)) { echo -a %n } }
  echo -a $str(-,15)
  .fclose test
}
alias -l patvar { var %j = 1 | while $read($1,%j) { if ($v1 == $2) { return $true } | inc %j } | return $false }