use warnings ;
use strict ; 

print 'Last X Point' , "\n" ;
my $xpoints = chomp (<STDIN>) ;

print 'Last Y Point' , "\n" ;
my $ypoints = chomp (<STDIN>) ;

my @xp = ("0" .. $xpoints) ;
my @yp = ("0" .. $ypoints) ;
my @ks = ("1" .. ((xpoints*$ypoints))) ;

my %position = (
 'a' => [0,0] ,
 'b' => [1,0] ,
 'c' => [2,0] ,
 'd' => [3,0] ,
 'e' => [0,1] ,
 'f' => [1,1] ,
 'g' => [2,1] ,
 'h' => [3,1] ,
 'i' => [0,2] ,
 'k' => [1,2] ,
 'l' => [2,2] ,
 'm' => [3,2] ,
 'n' => [0,3] ,
 'o' => [1,3] ,
 'p' => [2,3] ,
 'q' => [3,3] ,
) ;