for i in $(find ./ 2>/dev/null | xargs realpath | xargs -Ipath file --mime-type path | grep "faa: text/" | cut -d " " -f 1 |  sed 's|:*$||g');do
	/home/hmori/diamond blastp --sensitive --query "$i" --db /home/hmori/prokaryotes.pep.diamond --out "$i".dia --evalue 1e-16 --id 40 --min-score 70 --strand both --max-target-seqs 10 --outfmt 6 -p 10
	perl /home/hmori/KOSum.pl "$i".dia /home/hmori/prokaryotes.dat
	perl /home/hmori/FunctionKOAna2.pl "$i".dia.KO /home/hmori/InterestKOList.txt
	cp "$i".dia.KO.func.txt "$i".KO.func.txt
done

