bir
iki
üç
dört 
beş
altı
yedi
sekiz
dokuz
on

alias oku {
  var %vbir = 1,%viki = $lines(dosya.txt),%bir = $1,%iki = $2 
  while %vbir <= %viki { 
    if %bir == $read(dosya.txt,%vbir) { var %bl1 $calc(%vbir + 1) }
    elseif %iki == $read(dosya.txt,%vbir) { var %bl2 $calc(%vbir - 1) }
    inc %vbir
  }
  while %bl1 <= %bl2 { 
    /msg $chan $read(dosya.txt,%bl1)
    inc %bl1
  }
}