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