;deneme.txt yazan yere dosya adini yaziniz.


alias -l dosya return deneme.txt 
;
alias dizkucuk {
  var %j = 1, %x = $lines($dosya) 
  while (%j <= %x) {
    var % $+ dmn $+ - $+ %j $+ - $+ $len($read($dosya,nt,%j))  $read($dosya,nt,%j)
    inc %j
  } 
  var %k = 1, %l = 2032
  while (%k <= %l) {
    if $var($+(%,dmn-*-,%k)) {
      var %z = 1
      while (%z <= $var($+(%,dmn-*-,%k),0))   {
        echo -a : $var($+(%,dmn-*-,%k),%z).value
        inc %z
      }
    }
    inc %k
  }
}

alias dizbuyuk {
  var %j = 1, %x = $lines($dosya) 
  while (%j <= %x) {
    var % $+ dmn $+ - $+ %j $+ - $+ $len($read($dosya,nt,%j))  $read($dosya,nt,%j)
    inc %j
  } 
  var %k = 1, %l = 2032
  while (%k <= %l) {
    if $var($+(%,dmn-*-,%l)) {
      var %z = 1
      while (%z <= $var($+(%,dmn-*-,%l),0))   {
        echo -a : $var($+(%,dmn-*-,%l),%z).value
        inc %z
      }
    }
    dec %l
  }
}