on *:TEXT:@test:#:{
  //set %var 1
  while (%var <= $lines(file.txt)) {
    //set %var2 %var2  $+  $read(file.txt,%var)
    //inc %var
  }
  //msg $chan %roster
  //unset %var
  //unset %var2
}