: overlaps? ( seq -- ? ) [ [ first ] compare ] sort 2 [ first2 [ second ] [ first ] bi* < ] all? not ;