let crazy_example ~normal_fastqs ~tumor_fastqs ~dataset =     let open Pipeline.Construct in     let normal = input_fastq ~dataset normal_fastqs in     let tumor = input_fastq ~dataset tumor_fastqs in     let bam_pair ?configuration () =       let normal =         bwa ?configuration normal         |> gatk_indel_realigner         |> picard_mark_duplicates         |> gatk_bqsr       in       let tumor =         bwa ?configuration tumor         |> gatk_indel_realigner         |> picard_mark_duplicates         |> gatk_bqsr       in       pair ~normal ~tumor in     let bam_pairs =       let non_default =         let open Bwa.Configuration.Aln in         { name = "config42";           gap_open_penalty = 10;           gap_extension_penalty = 7;           mismatch_penalty = 5; } in       [         bam_pair ();         bam_pair ~configuration:non_default ();       ] in     let vcfs =       List.concat_map bam_pairs ~f:(fun bam_pair ->           [             mutect bam_pair;             somaticsniper bam_pair;             somaticsniper               ~configuration:Somaticsniper.Configuration.{                   name = "example0001-095";                   prior_probability = 0.001;                   theta = 0.95;                 } bam_pair;             varscan_somatic bam_pair;             strelka ~configuration:Strelka.Configuration.exome_default bam_pair;           ])     in     vcfs