use strict;
use warnings;
use diagnostics;
use 5.01000;

&table(2,3,4);   


sub table{
	
	my $i = 1;
	my $loop;
	
	foreach $loop(@_){
		for($i;$i<=10;$i++){
		  my $ans = $i*$loop;
	      print"$ans ";
		}	  
	   print"\n";   
	}
}