#!/usr/bin/env Rscript
i=0
out=""
for (i in 1:50) {
  if (i%%15 == 0) { 
  # print("FizzBuzz")
    out = paste(out, "FizzBuzz", sep=" ")
  } else if (i%%5 == 0) { 
    out = paste(out, "Buzz", sep=" ")
  } else if (i%%3 == 0) { 
    out = paste(out, "Fizz", sep=" ")
  } else {
    out = paste(out, i, sep=" ")
  }
}
print(out, quote=F)