let bam_to_fastq ?fragment_id se_or_pe bam =     fun ~(var_count : int) ->       let bamc = bam ~var_count in       function_call "bam_to_fastq" [         "fragment_id",         Option.value_map ~f:string ~default:(string "N/A") fragment_id;         "endness", string (           match se_or_pe with           | `SE -> "SE"           | `PE -> "PE"         );         "input", bamc;       ]