withUnsignedShortResult :: IO CUShort -> IO Int
withUnsignedShortResult io
  = do 
    x <- io
    return (fromCUShort x)
withUnsignedShortResult :: IO CUShort -> IO Int
withUnsignedShortResult io
  = do 
    x <- io
    return (fromCUShort x)
withUnsignedShortResult io
  = do 
    x <- io
    return (fromCUShort x)