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