alias nickv { dec %mm | return $iif(%mm <= 0,$null,$nick($2,%mm)) }
alias unmode { 
set %mm $nick($2,0)
:basa
if (%mm > 0) {
.mode $2 $+($1,$str($mid($1,2,3),4)) $nickv($1,$2) $nickv($1,$2) $nickv($1,$2) $nickv($1,$2) $nickv($1,$2)
	goto basa
}
unset %mm 
}