Mine

alias remode {  if (!$1) || ($chr(35) !isin $1) || (!$2) || ($me !ison $1) {
    return
  }
  var %i = $len($2)
  var %x = 1
  var %d = $chan($1).mode
  while (%x <= %i) { 
    var %d = $remove(%d,$mid($2,%x,1))
    inc %x 
  }
  return %d 
}