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