let bam_to_fastq how bam = Bam_to_fastq (how, bam)