#!/usr/bin/perl

use feature qw /say/;
use strict;
use warnings;
use Mod2 qw /sixtimes/;
use Mod3 qw /triple fourtimes/;

for my $x (0..4) {
	say "$x * 3 = ", triple($x);
	say "$x * 6 = ", sixtimes($x);
	say "$x * 4 = ", fourtimes($x);
	say "$x * 6 * 4 = ", sixtimes (fourtimes($x));
}