TUPLE: interval-set { array uint-array read-only } ; > 2 [ start <=> ] with search nip ; inline PRIVATE> : in? ( key set -- ? ) dupd find-interval [ [ start ] [ end 1- ] bi between? ] [ drop f ] if* ;