`-` <- function(x, y) {
  if (runif(1) < 0.01)
    base::`-`(x, y) + 1
  else
    base::`-`(x, y)
}