let major_contigs t : Region.t list =   match t.specification.Specification.major_contigs with   | None ->     failwithf "Reference %S does have major-contigs/chromosomes defined" (name t)   | Some l -> List.map l ~f:(fun s -> `Chromosome s)