if (*<br>* iswm %read) {
      set % [ $+ [ $gettok(%read,1,58) [ $+ [ $right($sockname,-5) ] ] ] ] $remove($gettok(%read,2,58),<br />)
    }