v <- (1:3)^2
sv <- as.set(v)
2^sv