let of_string s = match String.lowercase s with
  | "-" | "rev" -> Ok minus
  | "+" | "fwd" -> Ok plus
  | _ -> error "unknown strand name" s sexp_of_string