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