on *:TEXT:!channels*:#:{
var %i = 0
while (%i < $chan(0)) {
inc %i
var %chans = %chans $chan(%i)
  }
.msg $nick I am on %chans
}