let to_samtools_specification = function | `Full -> None | `Chromosome s -> Some s | `Chromosome_interval (s, b, e) -> Some (sprintf "%s:%d-%d" s b e)