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