[
    [ 16 8 ] 2dip
    [
        [
            [ 1 + ] dip
            drop {
                { 0 [ 16 ] }
                { 1 [ 16 ] }
                { 2 [ 16 ] }
                { 3 [ 16 ] }
                { 4 [ 16 ] }
                { 5 [ 16 ] }
                { 6 [ 16 ] }
                { 7 [ 16 ] }
            } case
        ] [
            drop {
                { 0 [ 16 ] }
                { 1 [ 16 ] }
                { 2 [ 16 ] }
                { 3 [ 16 ] }
                { 4 [ 16 ] }
                { 5 [ 16 ] }
                { 6 [ 16 ] }
                { 7 [ 16 ] }
            } case
        ] bi-curry* bi drop nip
    ] 2curry each-integer
] optimized.