let explode_bam_list_node (bln : bam_list workflow_node) =     List.map bln#product#bams ~f:(fun bam ->         workflow_node bam           ~name:(Filename.basename bam#path)           ~tags:["expolode_bam_list_node"]           ~edges:[depends_on bln]           ~equivalence:`None)