let
to_string (seq, {
Biocaml_range
.lo ; hi }) =
sprintf
"%s:%d-%d"
(
S
.to_string seq) lo hi