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