binom <- function(n) {
  plot(0:n, dbinom(0:n, n, 1/2))
  Sys.sleep(0.1)
}
ignore <- sapply(1:100, binom)