alias _clearpb {
tokenize 32 $_clearfperiod($1-)
if ([*] iswm $1-) || (<*> iswm $1-) || ({*} iswm $1-) || ("*" iswm $1-) || ('*' iswm $1-) || (($left($1-,1) == $chr(40)) && ($right($1-,1) == $chr(41))) { 
return $right($left($1-,-1),-1)
}
return $1-
}