let bam_to_fastq ?sample_name how bam = Bam_to_fastq (sample_name, how, bam)