The Biocaml Library : Biocaml_strandName.of_string_exn

let of_string_exn = function

 | "-" -> Minus

 | "+" -> Plus

 | s -> raise_bad (sprintf "unrecognized strand %s" s)