sub f {
#23456789012345678901234567890123456789012345678901234567890123456789012345678901
my$x=my$i=pop;$x?([1..$x],map[(map$_+2*$x-1,reverse@$_),++$i],reverse f($x-1)):()
}