resChar :: ArgRes Char
resChar  p             = readVarByte p >>= \ x -> return (toEnum (fromIntegral x))
resChar :: ArgRes Char
resChar  p             = readVarByte p >>= \ x -> return (toEnum (fromIntegral x))
resChar  p             = readVarByte p >>= \ x -> return (toEnum (fromIntegral x))