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