Mine

alias remove2 {
  var %o $1,%t 2,%r $1
  while ($($ $+ %t,2)) {
    %o = $replace(%o,$v1,) 
    inc %t
  }
  return $iif(%o == %r,%r,%o)
}