ON *:TEXT:!SongList*:#GHero:{ songlist $2 }
alias songlist {
  var %line 0, %lines $lines($1)
  while (%lines > %line) { 
inc %line
msg $chan $read(C:\song\ $+ $1 $+ .txt,%line) 
}
}