Paste: overlap?

: overlap? ( array array -- ? ) ! { from to }
    2dup [ second ] [ first ] bi* > 
    [ 
       [ first ] [ second ] bi* >= [ f ] [ t ] if 
    ] [ 2drop f ] if ; inline