BEGIN{ FS = "\n" ; RS = "" }
{
split ( $0, field )
while (1) {
if ( getline < "Ps.txt" > 0 )
{
if ( substr($1,1,15) == substr(field[1],1,15))
{
for(i = 1 ; i <= NF ; i++)
print field[i]
print ""
break
}
else
{
for(i = 1 ; i <= NF ; i++)
print $i
print ""
continue
}
}
else {
print ""
break
}
}
}