Create process_fasta.R