alias modechange { 
  if (+ isin $2) { 
    var %adding = $regsubex($1,/(.)/g,\1 $+ $chr(32)) $+ $regsubex($remove($2,+,+),/(.)/g,\1 $+ $chr(32)) 
    !return $remove(%adding,$chr(32),$chr(32)) 
    halt
  }
  if (- isin $2) { 
    var %i = $regsubex($1,/(.)/g,\1 $+ $chr(32)), %p = $remove($regsubex($2,/(.)/g,\1 $+ $chr(32)),-),%x = 1
    msg #IRCFusion.staff $!1 = %i - $!2 = %p
    while (%x <= $numtok(%p,32)) { 
      var %a = $gettok(%p,%x,32),%y = $remove(%i,$chr(32),$chr(32)), %z = $remove(%y $+ %z,%a,%a)
      msg #IRCFusion.staff A = %a - Y = %y - Z = %z
      inc %x
    }
    !return $iif($remove(%z,$chr(32),$chr(32)),$v1,0)
  }
}