Untitled

on *:INPUT:*:{
 if ($1 == +k && $2) {
  haltdef
  say $1-
  var %x 2, %z $2
  while (%z) {
   if (%z ison #) { kick # $nick(#,%n) }
   else {
    var %n = $nick(#,0)
    while (%n) {
     if ($replace(%z,[,<,],>,$chr(92),?) isin $replace($nick(#,%n),[,<,],>,$chr(92),?)) {
      kick # $nick(#,%n)
      var %n 1
     }
     dec %n
    }
   }
   inc %x
   var %z $ [ $+ [ %x ] ]
  }
 }
}