extractByte :: Int -> Word64 -> Word8
extractByte n w = fromIntegral $ shiftR w (8 * (7 - n))
extractByte :: Int -> Word64 -> Word8
extractByte n w = fromIntegral $ shiftR w (8 * (7 - n))
extractByte n w = fromIntegral $ shiftR w (8 * (7 - n))