library(magrittr)
x <- 1e4 %>% replicate(mean(rbinom(3000, 1, 0.95))) %T>%
{
  qqnorm(.)
  qqline(.)
}