rm PAC/*
cat provs |  awk -F"^" ' {
file="PAC/F"NR
print "H01"$1  >file
print "H02"$2  >file
print >file
} 
' -

>../data/comun/H
>../data/comun/HEAD
>../data/comun/DOC
echo -n "    0     0">../data/comun/INFO

for i in PAC/*
do
../ihd/bin/ihmu comun ../../IMP/$i -N1
done

