{
if($1==primo)
   {
   print >> "doppi"
   next
   }
primo=$1
print
}
#
# Trova i doppioni (cioŠ le forme etichettate
# due volte) in un testo gi… sortito: il controllo
# Š effettuato tra righe a contatto. Il file di
# uscita assegnato da tastiera contiene il testo
# ripulito; i doppioni vengono invece automaticamente
# spostati in un file chiamato "doppi".