use fromEnum in DNA.hs