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