t=0; for (n = 1; n <= NF; n++) if ($n !~ /![[:alnum:]_]+/) words[t++] = tolower($n);
for (t in tags) { sub(/^#/, "", tags[t]); printf "%s ", tags[t]; } print "";
for (t in ntags) { sub(/^!/, "", ntags[t]); printf "%s ", ntags[t]; } print "";
t=0; for (n = 1; n <= NF; n++) if ($n !~ /![[:alnum:]_]+/) words[t++] = tolower($n);
for (t in tags) { sub(/^#/, "", tags[t]); printf "%s ", tags[t]; } print "";
for (t in ntags) { sub(/^!/, "", ntags[t]); printf "%s ", ntags[t]; } print "";