let bam_list (bams : bam_file list) : bam_list =     object       method bams = bams       method is_done =         Some (           `And (List.map bams                   ~f:(fun b ->                       b#is_done                       |> Option.value_exn ~msg:"Bams should have a Condition.t"))         )     end