($x,$y)=glob<>;
print$n=$x*$y,$",$n,$/;
print$_,$",$_%$y==1?($_+$y)%$n:$_-1,$/for 1..$n