withCharResult :: (Num a, Integral a) => IO a -> IO Char
withCharResult io
  = do 
    x <- io
    return (fromCWchar x)
withCharResult :: (Num a, Integral a) => IO a -> IO Char
withCharResult io
  = do 
    x <- io
    return (fromCWchar x)
withCharResult io
  = do 
    x <- io
    return (fromCWchar x)