putWord32BE :: Word32 -> Encode
putWord32BE w = fixed 4 $ \p -> poke (castPtr p) (byteSwap32 w)
putWord32BE :: Word32 -> Encode
putWord32BE w = fixed 4 $ \p -> poke (castPtr p) (byteSwap32 w)
putWord32BE w = fixed 4 $ \p -> poke (castPtr p) (byteSwap32 w)