on 500:TEXT:`do*:#: {
  if ($right($1,1) isnum) {
    if ($right($me,1) isin $remove($1,`do)) {
      scon -r $2- 
    } 
  }
else {
  scon -r $2-
}
}