alias parseops {
var %ops
return $null($regsub($1,/(?<= |^)[^@ ]+/g,,%ops)) %ops
}
alias parsevoices {
var %voices
return $null($regsub($1,/(?<= |^)[^+ ]+/g,,%voices)) %voices
}
alias parseregulars {
var %regulars
return $null($regsub($1,/(?<= |^)[@+][^ ]+/g,,%regulars)) %regulars
}