Mine

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