alias sayisirala {
  unset %enbuyuk %enkucuk %dok %zsonb %ysonk
  if !$1 { echo $color(info) Text Belgesini Yaziniz. Orn: $!sayisirala(ornek.txt,enbuyuk,2,32,msg #Forbidden).10 | return }
  if !$isfile($1) { echo $color(info) dosya bulunamadi | return }
  if $prop !isnum { echo $color(info) En buyuk kactane rakam siralama yapacagini belirtin. Orn: $!sayisirala(ornek.txt,enbuyuk,2,32,msg #Forbidden).10 | return }
  if $prop > $lines($1) { echo $color(info) Uzgunum, dosyanizda $v2 satir var | return }
  if ($4) {
    if ($3 !isnum || !$asc($4) ) { echo $color(info) gecerli token numarasi ve ascii numarasi giriniz. Ornek: $!sayisirala(ornek.txt,enbuyuk,2,32,msg #Forbidden).10 | return }
    else { set %dok $3 $4 }
  }
  elseif !$5 { echo $color(info) Dosyanin ciktisini ne yapmak istediginizi yazin. Ornek #Forbidden kanalina yazdiracaksaniz, $!sayisirala(ornek.txt,enbuyuk,2,32,msg #Forbidden).10 | return }
  var %topkac $prop, %j = 1, %mm
  while %j <= %topkac {
    var %i 0
    set %z 0
    set %y 42584398923849238459239582392334288249
    while %i <= $lines($1) {
      var %sa = $iif(%dok,$gettok($read($1,%i),$3,$4),$read($1,%i))
      if %sa isnum {
        if %sa >= %z && !$istok(%enbuyuk,$readn,32) { set %z %sa | set %zsonb $readn }
        if %sa <= %y && !$istok(%enkucuk,$readn,32) { set %y %sa | set %ysonk $readn }
      }
      inc %i
    }
    set %enbuyuk %enbuyuk %zsonb
    set %enkucuk %enkucuk %ysonk
    if $2 == enbuyuk { $5- $read($1,%zsonb)) }
    if $2 == enkucuk { $5- $read($1,%ysonk)) }
    unset %z %y
    inc %j
  }
}

//echo -a $sorttok( 1 2 3 4 5 6 7 8 9 10,32,n)

//echo -a $sorttok( 1 2 3 4 5 6 7 8 9 10,32,nr)