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