BEGIN {
pos[20]="n.c"
pos[21]="n.p"
pos[26]="adj"
pos[30]="pd.dem"
pos[31]="pd.dem"
pos[32]="pd.idf"
pos[33]="pd.pos"
pos[34]="pd.pos"
pos[35]="pd.int"
pos[36]="pd.rel"
pos[37]="pd.per"
pos[38]="pd.per"
pos[39]="pd.per"
pos[40]="pd.exc"
pos[41]="pd.per"
pos[45]="adv.gn"
pos[46]="adv.pc"
pos[47]="adv.cnt"
pos[50]="conj.co"
pos[51]="conj.sb"
pos[56]="adp.pre"
pos[57]="adp.post"
pos[60]="art.d"
pos[61]="art.i"
pos[64]="num.car"
pos[65]="num.ord"
pos[68]="intj"
pos[70]="punct.fi"
pos[71]="punct.nfi"
pos[75]="r.frg"
pos[76]="r.abb"
pos[77]="r.for"
pos[78]="r.epe"
pos[111]="v.m"
pos[112]="v.m"
pos[113]="v.m"
pos[114]="v.m"
pos[115]="v.m"
pos[116]="v.m"
pos[117]="v.m"
pos[118]="v.m"
pos[121]="v.m"
pos[122]="v.m"
pos[123]="v.m"
pos[124]="v.m"
pos[211]="v.a"
pos[212]="v.a"
pos[213]="v.a"
pos[214]="v.a"
pos[215]="v.a"
pos[216]="v.a"
pos[217]="v.a"
pos[218]="v.a"
pos[221]="v.a"
pos[222]="v.a"
pos[223]="v.a"
pos[224]="v.a"
pos[311]="v.md"
pos[312]="v.md"
pos[313]="v.md"
pos[314]="v.md"
pos[315]="v.md"
pos[316]="v.md"
pos[317]="v.md"
pos[318]="v.md"
pos[321]="v.md"
pos[322]="v.md"
pos[323]="v.md"
pos[324]="v.md"
}
{
nf = 0
while(nf < NF)
	{
      nf++
      if ($nf ~ /\#/ || $nf ~ /\@/ || $nf ~ /\%/ || $nf ~ /\$/ || $nf ~ /\œ/)
		continue
      # omette le stringhe tra # e @
      #
        if($nf ~ /\);\(/ || $nf ~ /section/)
            continue
 # Elimina le transcategorizzazioni
        s = split($nf,field,"_lem=")
	  lem = field[2]
	  form = field[1]
	  k = split (lem, cod, ",")
        if(cod[2] == "0")
            continue
# Elimina le POS 0
print cod[1], pos[cod[2]]"_"form
        }
}