How about...?

[1], -> *@p { [0,@p Z+ @p,0] } ... * 

- - - -

> .perl.say for ([1], -> @p { [0,@p Z+ @p,0] } ... *).[^10]