# Demonstrates a while loop, counting down

i <- 3
while (i != 0) {
  cat("quack!\n")
  i <- i - 1
}