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