let to_filename = function | `Full -> "Full" | `Chromosome s -> sprintf "%s" s | `Chromosome_interval (s, b, e) -> sprintf "%s_%d-%d" s b e