awk -F"^" ' {
split($2,a," ")
split($6,b," ")
rr[a[1]":"$5":"b[1]]++
ri[a[1]":"$5":"b[1]]=$1
}
END {
for (i in rr) if(rr[i]>1)  print "H00"ri[i]"\n  " >"DUP/"ri[i]
}
 ' ../tmp/F1
for i in DUP/*
do
../ihd/bin/ihmu agend ../../IMP/$i -N1
done
