added option in write_fasta to write a phylip type fast format, see example output