+ go ∷ WordsData
+ → bs
+ → n
+ → New v Int32
+ → (# WordsData, bs, n, New v Int32 #)
+ {-# INLINE go #-}
+ go w bs n v
+ | n ≥ nSamples = (# w, bs, n, v #)
+ | otherwise
+ = error "FIXME"
+ where
+ c ∷ EntropyData
+ c | n `rem` 2 ≡ 0 = fst $ wdEntropyData w
+ | otherwise = snd $ wdEntropyData w
+