TUPLE: testing ;

USING: kernel scratchpad sequences ;
M: testing length drop 8 ;

USING: combinators kernel memory scratchpad sequences.private ;
M: testing nth-unsafe
    swap {
        { 0 [ size ] }
        { 1 [ size ] }
        { 2 [ size ] }
        { 3 [ size ] }
        { 4 [ size ] }
        { 5 [ size ] }
        { 6 [ size ] }
        { 7 [ size ] }
    } case ; inline

[ { testing testing } declare [ rest-slice ] [ unclip-slice ] bi* -rot [ 8 ] 2dip [ [ nth-unsafe ] bi-curry@ bi drop nip ] 2curry each-integer ] optimized.