The Biocaml Library : Biocaml_seq.of_string

let of_string b =

 let n = String.length b in

 let ans = String.create n in

 for i = 0 to n-1 do

  let c = Char.uppercase b.[i] in

  if is_nucleic_acid c then ans.[i] <- c

  else raise_bad (bad_acid b.[i])

 done;

 ans