#!/usr/bin/env Rscript
for (i in 1:30) {
    fizzbuzz <- ifelse(i %% 15 == 0, "FizzBuzz", ifelse(i %% 3 == 0, "Fizz", if\
else(i %% 5 == 0, "Buzz", i)))
    cat(fizzbuzz, "\n")
}