# points made in 9 1-and-1 situations
# with free throw percentage of .72
first <- c(rbinom(9, size=1, prob=.72))
second <- c(rbinom(9, size=1, prob=.72))
result1 <- first + first*second
cat("total 1-1 free throw points made =", sum(result1), "\n")
cat("first =", first, "second =", second, "\n")