#
# Script di controllo
# che calcola il numero totale di token
# presenti nel testo
#
{
nf = 0
while(nf <= NF)
      {
      nf++
      if ($nf ~ /\#/ || $nf ~ /\@/ || $nf ~ /\%/ || $nf ~ /\$/ || $nf ~ /\œ/ || $nf !~ /_/)
                continue
        # omette le stringhe tra # e @
        #
        counter++
        }
}
END {
print "Nel testo sono presenti " counter " token"
}