let call_gatk ~analysis ?(region=`Full) args =
let open KEDSL.Program in
let escaped_args = List.map ~f:Filename.quote args in
let intervals_option = Region.to_gatk_option region in
sh (String.concat ~sep:" "
("java -jar $GATK_JAR -T " :: analysis :: intervals_option :: escaped_args))