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