#!/usr/bin/perl

$n = shift || 20;

for my $i (1..$n) {
	printf "%-20s", "$i + $i =";
	print rand() < 0.5 ? "$i x 2  = \t" : "2 x $i  = \t";
	print "\n";
}

for my $i (1..$n) {
	printf "%-20s", "$i + $i + $i =";
	print rand() < 0.5 ? "$i x 3  = \t" : "3 x $i  = \t";
	print "\n";
}