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