alias okut {
  if $read(deneme.txt,w,$1) {
    var %syhkr $calc($readn + 1)
    var %i 1
    while (%syhkr <= $lines(deneme.txt)) {
      echo -a %i > $read(deneme.txt,%syhkr)
      inc %syhkr
      inc %i
    }
  }
  else { echo -a Hata! }
}