#!/usr/bin/perl -w
use strict;
{
    for (1..40) {
	print;
	($_ % 3 == 0) && print q! fizz!;
	($_ % 5 == 0) && print q! buzz!;
	($_ % 7 == 0) && print q! sausage!;
	print "\n";
    }
}