withIntResult :: IO CInt -> IO Int
withIntResult io
  = do 
    x <- io
    return (fromCInt x)
withIntResult :: IO CInt -> IO Int
withIntResult io
  = do 
    x <- io
    return (fromCInt x)
withIntResult io
  = do 
    x <- io
    return (fromCInt x)