withShortResult :: IO CShort -> IO Int
withShortResult io
  = do 
    x <- io
    return (fromCShort x)
withShortResult :: IO CShort -> IO Int
withShortResult io
  = do 
    x <- io
    return (fromCShort x)
withShortResult io
  = do 
    x <- io
    return (fromCShort x)