zex $1 > $UTP/a$$
/bin/rm $BTP/ref.out

cat $ENT/$2.ent
shift
shift
for i in $*
do
 noet=`echo $i | awk ' {printf"%04d",$1} ' `
 grep $noet $UTP/a$$ | tee -a $BTP/ref.out
 echo ' '
done

cut -c1-10 $BTP/ref.out | sort -u -n +1 -o $BTP/ref.out