alias -l makeIdentifiers {
var %arg $remove($1-,$chr(36),$chr(37))
var %regexIdentifierMatch ([A-Za-z]+\()
var %matches $regex(Identifiers,%arg,%regexIdentifierMatch)
echo -s Matches: $+ %matches
var %a 1
while (%a <= %matches) {
var %match $regml(Identifiers,%a)
echo -s Match: $+ %match
if ($istok($identifierList,%match,44)) {
var %arg $replace(%arg,%match,$chr(32) $+ $chr(36) $+ %match)
}
inc %a
}
return %arg
}