alias kelime {
  var %file = a.txt
  if (!$exists(%file)) {
    echo -a Hata: $qt(%file) dosyası bulunamadı!
    return
  }


  var %words = $null, %line = 1
  while ($read(%file, n, %line)) {
    var %current_line = $v1
    var %words = %words %current_line
    inc %line
  }

  var %i = 1, %kelime_words = $null
  while ($gettok(%words, %i, 32) != $null) {
    var %word = $v1
    var %len = $len(%word)

    var %kelime_words = %kelime_words $+ %len $+ : $+ %word $chr(44)  
    inc %i
  }

  var %kelime = $sorttok(%kelime_words, 44, 33) 

  var %final_result = $null, %j = 1
  while ($gettok(%sorted, %j, 44) != $null) {
    var %entry = $v1
    var %word = $mid(%entry, $calc($pos(%entry, :, 1) + 1), $len(%entry))
    var %final_result = %final_result %word
    inc %j
  }

  echo -a Kelimeler (Büyükten Küçüğe): %final_result
  ; write kelime.txt %final_result 
}

adana
mersin
istanbul
antalya
gaziantep
muş
rize

alias sıra {
  var %x = 1
  while (%x <= $lines(x.txt)) {
    var %y $addtok(%y, $len($read(x.txt,%x)) $+ $chr(33) $+ $readn, 32)
    inc %x
  }
  var %ext = $sorttok($regsubex(x,%y,/(\d+)!(\d+)/gU,\1!\2), 32, rn)
  var %c = 1, %d = $calc($regml(x,0) / 2)
  while (%c <= %d) {
    echo -a $read(x.txt, $token($token(%ext, %c, 32), 2, 33))
    inc %c
  }
}

gaziantep
istanbul
antalya
mersin
adana
rize
muş