haskell nucleotde count v3