Traverse dna strng only once in DNA.hs
Refactor nucleotides into own var in DNA.hs