withUnsignedIntResult :: IO CUInt -> IO Int
withUnsignedIntResult io
  = do 
    x <- io
    return (fromCUInt x)
withUnsignedIntResult :: IO CUInt -> IO Int
withUnsignedIntResult io
  = do 
    x <- io
    return (fromCUInt x)
withUnsignedIntResult io
  = do 
    x <- io
    return (fromCUInt x)