on *:TEXT:.topics:#space:{
  var %i = 1

  while (%i < %index) {
    //msg $nick Topic ID: %i -- %topic [ $+ [ %i ] ]
    /inc %i
  }
  /unset %i

}

alias add_topic {
  /set %topic [ $+ [ %index ] ] $$1-
  /inc %index
}