let bam_to_fastq ?fragment_id se_or_pe bam =     fwd (Input.bam_to_fastq ?fragment_id se_or_pe (bwd bam))