         ] keep pick last push
     ] each ;
 
+PRIVATE>
+
 : runs ( seq -- newseq )
     [ V{ } clone 1vector ] dip [ first ] keep (runs) drop ;
+
+<PRIVATE
 
 : score-1 ( i full -- n )
     {

        { [ 2dup [ 1 + ] dip nth Letter? not ] [ 2drop 4 ] }
        [ 2drop 1 ]
    } cond ;

: score ( full fuzzy -- n )
    dup [

        f -1 f
    ] if* ;

PRIVATE>

: fuzzy ( full short -- indices )
    dup [ length <vector> 0 ] curry 2dip
    [ (fuzzy) ] with all? 2drop ;

<PRIVATE

: (runs) ( runs n seq -- runs n )
    [
