let
optitype how =
one_to_one
"optitype"
(
match
how
with
`
DNA
->
"DNA"
|
`
RNA
->
"RNA"
)