use strict;
use warnings;

my $num = shift @ARGV;
if(!defined $num or $num =~ /[^0-9]/){ die "引数に数値を入力してください。\n"; }

my $cnt = 1;
my $flag = 1;

while($cnt <= $num){
	if($cnt % 3 == 0){ print "Fizz"; $flag = 0 ; }
	if($cnt % 5 == 0){ print "Buzz"; $flag = 0 ; }
	if($flag){ print $cnt; }
	print "\n";
	$flag = 1;
	$cnt++;
}