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