BEGIN {
while((getline < "f2") > 0)
        {
        indic = $1
        $1 = ""
        $2 = ""
        sub (/^ +/,"",$0)
        tabel[indic] = $0
        }
close("f2")
}
{
riga = ""
nf = 0
while(nf < NF)
        {
        nf++
        if(($nf in tabel) == 0)
            {
            riga = riga " " $nf
            continue
            }
        riga = riga " " $nf"_"tabel[$nf]
        }
print riga
}