gsub((a="[aeiou]")"[^"a"*"a"|"a"*|[^"a"*","(&)")