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 
}