BEGIN {
while ((getline < "f2") > 0)		
		{
		indice = $1 
		lista[indice] = $NF
		}
}
{
pos = $NF
if (pos ~ /,3[0123456789],/ || pos ~ /,4[01567],/ || pos ~ /,5[01],/ || pos ~ /,5[67],/ || pos ~ /,6[01],/)
	{
	pys = split (pos, ghy, /,/)
	gok = ghy[1]ghy[2]
	linea = lista[$1]
	if (linea ~ /\);\(/)
		{
		cpn = 1 
		sub (/\(/, "", linea)
		cp = split (linea, sp, /\);\(/)
		pt = ""
		while (cpn <= cp)
			{
			cys = split (sp[cpn], cxn, /,/)
			gtr = cxn[1]cxn[2]
			if (cpn > cp)
				break
			if (gtr != gok)
				{
    				if (cpn == 1) 
					{
					pt = pt "(" sp[cpn] ");"
					cpn++
					}
				else
    				if (cpn > 1 && cpn < cp) 
					{
					pt = pt "(" sp[cpn] ");"
					cpn++
					}
				else
    				if (cpn == cp) 
					{
					pt = pt "(" sp[cpn]
					cpn++
					}
				}
			else
	    	 		cpn++
			}
		printf "%-25s %5d %s\n", $1, $2, "(" $3 ");" pt
		}
	else
		print $0
	}
}