alias artan {
  var %dosya = dosya.txt
  var %satirlar , %i = 1

  while ($read(%dosya,%i)) {
    if ($len($v1)) { %satirlar = %satirlar $v1 }
    inc %i
  }

  var %sirali = $sorttok(%satirlar,32,n,len)

  echo -a *** Artan Sıralama ***
  var %j = 1
  while (%j <= $numtok(%sirali,32)) {
    echo -a $gettok(%sirali,%j,32)
    inc %j
  }
}

alias azalan {
  var %dosya = dosya.txt
  var %satirlar , %i = 1

  while ($read(%dosya,%i)) {
    if ($len($v1)) { %satirlar = %satirlar $v1 }
    inc %i
  }

  var %sirali = $sorttok(%satirlar,32,n,len)
  var %ters , %x = $numtok(%sirali,32)

  while (%x) {
    %ters = %ters $gettok(%sirali,%x,32)
    dec %x
  }

  echo -a *** Azalan Sıralama ***
  var %k = 1
  while (%k <= $numtok(%ters,32)) {
    echo -a $gettok(%ters,%k,32)
    inc %k
  }
}