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)) }
  if (- isin $2) { 
    var %take = $regsubex($1,/(.)/g,\1 $+ $chr(32)) 
    var %take2 = $regsubex($2,/(.)/g,\1 $+ $chr(32)) 
    var %take3 = $addtok(%take,%take2,32) 
    var %take = $remove(%take3,$chr(32)) 
    !return %take 
  }
}