2each-index ( seq quot -- )
    [| cells row |
        cells
        [| cell col |
            cell row col 2array quot call( elt pos -- )
        ] each-index
    ] each-index ; inline