haskell nucleotide count