SYMBOL: vikky V{ } vikky set

: seq-overlaps? ( seq -- ? )
    [ rest-slice ] [ 1 head first ] bi ! rest head
    [ vikky get ] dip 2dup (overlaps?) ! rest vikky head t/f
        [ 3drop t ] [ 
        suffix  
        vikky set     ! rest
        seq-overlaps? 
        ] if ;