withUnsignedLongResult :: IO CULong -> IO Int
withUnsignedLongResult io
  = do 
    x <- io
    return (fromCULong x)
withUnsignedLongResult :: IO CULong -> IO Int
withUnsignedLongResult io
  = do 
    x <- io
    return (fromCULong x)
withUnsignedLongResult io
  = do 
    x <- io
    return (fromCULong x)