haskell nucleotide count initial