R script for annotating a fasta with a blast report and counts table.