let of_string_exn = function
  | "-" -> Minus
  | "+" -> Plus
  | s -> raise_bad (sprintf "unrecognized strand %s" s)