alias silsatir {
  var %satir = $1
  var %dosya = $2
  var %toplam = $read(%dosya, n)  
  if (%satir >= %toplam) return  
  while (%toplam > %satir) {
    write -dl$+(%satir,1) %dosya
    dec %toplam
  }
}