 
 : (3each) ( seq1 seq2 seq3 quot -- n quot' )
     [
-        [ [ length ] tri@ min min ]
+        [ [ length ] tri@ min min check-length ]
         [ [ 3nth-unsafe ] 3curry ] 3bi
     ] dip compose ; inline
 

    [ nth-unsafe ] bi-curry@ bi ; inline

: ((2each)) ( seq1 seq2 -- n quot )
    [ min-length ] 2keep [ 2nth-unsafe ] 2curry ; inline

: (2each) ( seq1 seq2 quot -- n quot' )
    [ ((2each)) ] dip compose ; inline

<PRIVATE

: ((each)) ( seq -- n quot )
    [ length check-length ] keep [ nth-unsafe ] curry ; inline

: (each) ( seq quot -- n quot' )
    [ ((each)) ] dip compose ; inline
