stripcolor {
  var %a 1,%r
  while $gettok($1-,%a,32) {
    var %color = $left($gettok($1-,%a,32),3)
    var %nextcolor = $left($gettok($1-,$calc(1 + %a),32),3)
    if (%a == 1) { %r = %r $gettok($1-,%a,32) }
    else {
      if (%color == %nextcolor) { %r = %r $right($gettok($1-,$calc(1+%a),32),-3) }
      else { %r = %r $gettok($1-,$calc(1 + %a),32) }
    }
    inc %a
  }
  return %r
}