Biocaml 0.4-dev : Biocaml_strand.of_string

let of_string s = match String.lowercase s with

 | "-" | "rev" -> Ok minus

 | "+" | "fwd" -> Ok plus

 | _ -> error "unknown strand name" s sexp_of_string