let
is_nucleic_acid c =
Set
.mem codes (
Char
.uppercase c)