let to_gatk_option r =
  match to_samtools_specification r with
  | Some s -> sprintf "--intervals %s" s
  | None -> ""