getCsSysz :: IO CsSysZ
getCsSysz = do
    ptr <- mallocArray (sizeOf csSysz) :: IO (Ptr Word8)
    poke (castPtr ptr) (fromIntegral $ fromEnum SyszCcL :: Int32)
    poke (plusPtr ptr 4) (1 :: Word8)
    poke (plusPtr ptr 8) csSyszOp
    peek (castPtr ptr) <* free ptr
getCsSysz :: IO CsSysZ
getCsSysz = do
    ptr <- mallocArray (sizeOf csSysz) :: IO (Ptr Word8)
    poke (castPtr ptr) (fromIntegral $ fromEnum SyszCcL :: Int32)
    poke (plusPtr ptr 4) (1 :: Word8)
    poke (plusPtr ptr 8) csSyszOp
    peek (castPtr ptr) <* free ptr
getCsSysz = do
    ptr <- mallocArray (sizeOf csSysz) :: IO (Ptr Word8)
    poke (castPtr ptr) (fromIntegral $ fromEnum SyszCcL :: Int32)
    poke (plusPtr ptr 4) (1 :: Word8)
    poke (plusPtr ptr 8) csSyszOp
    peek (castPtr ptr) <* free ptr