#!/usr/bin/env Rscript
# cf. https://twitter.com/h_okumura/status/918047262739120130
n  = 30
fb = 1:n
fb[seq( 3,n, 3)] = "Fizz"
fb[seq( 5,n, 5)] = "Buzz"
fb[seq(15,n,15)] = "FizzBuzz"
cat(fb, sep="\n")