Mine

on @!*:part:#:{ 
  if ($wildsite !isin %pm. [ $+ [ # ] ] ) { 
    set -u2 %pm. $+ # %pm. [ $+ [ # ] ] $wildsite
    if ( $numtok(%pm. [ $+ [ # ] ],32) > 3 ) {
      mode # +bbbb %pm. [ $+ [ # ] ]
      unset %pm. [ $+ [ # ] ]
    } 
  } 
}