alias -l regesc {
return \Q $+ $replacecs($3, \E, \E\\E\Q) $+ \E
}
alias nremove {
var %n = $2
return $regsubex($1, /( $+ $regesc($3) $+ )/ugi, $iif(\n > %n, \1))
}
alias nremovecs {
var %n = $2
return $regsubex($1,/( $+ $regesc($3) $+ )/ug, $iif(\n > %n, \1))
}