#!/usr/local/bin/perl -l
print (Fizz)[$_%3].(Buzz)[$_%5]||$_ for 1..30