:: 2d-index-replicate
    ( ... x y quot: ( ... x y -- ... newelt ) -- ... newseq )
    { } clone x iota [ y iota [ [ dup ] dip 2array ] map nip append ] each
    [ first2 ] quot compose map ;

:: generate-region-file ( -- )
    32 32 [ generate-chunk ] 2d-index-replicate
    ! ...
;