resWord :: ArgRes Int
resWord p              = readVarInt p >>= return.fromIntegral
resWord :: ArgRes Int
resWord p              = readVarInt p >>= return.fromIntegral
resWord p              = readVarInt p >>= return.fromIntegral