waitALittle <- function() {
  A <- rand(500)
  invisible(gammaln(A))
}