-- | Crunching 'Word8' values, defined in terms of 'crunch64'.
crunch8 :: [Word8] -> [Word64]
crunch8 = crunch64 . (map fromIntegral)
crunch8 :: [Word8] -> [Word64]
crunch8 = crunch64 . (map fromIntegral)
crunch8 = crunch64 . (map fromIntegral)