Ultracompact X-Ray Binaries in Globular Clusters: Variability of the Optical Counterpart of X1832–330 in NGC 6652