#!/usr/local/perl5/bin/perl -w

$numb = 0;
while(defined($ARGV[$numb]))
{
    $numb ++;
}

open(sortie,">$ARGV[$numb - 1]");

for($i=0;$i<$numb -1;$i++)
{
    for($j=1;$j<=10;$j++)
    {	
	print sortie $ARGV[$i]." x ".$j." = ".$ARGV[$i]*$j."\n";
    }
    print sortie "\n";
}