on *:TEXT:.buddylist:#:{ 
  var %i 1
  var %file $nick $+ .txt
  var %bl Buddys: 
  while (%i != $calc($lines(%file) + 1)) {
    var %bl %bl $read( $+ %file $+ , $+ %i $+ )
    inc %i
  }
  msg $chan %bl
}