#!/usr/bin/perl -w

use strict;

@ARGV=();
$; = "%2u * %2u = %u";
($_ = $. = <>);
do { chomp; $! = !(defined($_)) } while ($|);
print join($/, map{ $!++; sprintf($;,$!,$_, ($_ * $!)) } (($.) x 10));