withLongResult :: IO CLong -> IO Int
withLongResult io
  = do 
    x <- io
    return (fromCLong x)
withLongResult :: IO CLong -> IO Int
withLongResult io
  = do 
    x <- io
    return (fromCLong x)
withLongResult io
  = do 
    x <- io
    return (fromCLong x)