Does suppressing output save time?

gistfile1.txt

f1 <- function() {
  y <- system.time(x <- rnorm(10000, 0, 1))
  z <- mean(x)
  print(y)
  print(z)
}

f2 <- function() {
  y <- system.time(x <- rnorm(10000, 0, 1))
  z <- mean(x)
}

microbenchmark::microbenchmark(f1(), f2(), times = 500)