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