         [
             dup word-help '[
                 _ _ {
-                    [ check-examples ]
                     [ check-values ]
-                    [ check-see-also ]
+                    [ nip [ check-examples ] [ check-see-also ] bi ]
                     [ [ check-rendering ] [ check-modules ] bi* ]
                 } 2cleave
             ] assert-depth

    ] keep
    peek assert= ;

: check-examples ( word element -- )
    nip \ $example swap elements [ check-example ] each ;

: extract-values ( element -- seq )
    \ $values swap elements dup empty? [

        ]
    } 2|| [ "$values don't match stack effect" throw ] unless ;

: check-see-also ( element -- )
    \ $see-also swap elements [
        rest dup prune [ length ] bi@ assert=
    ] each ;

