public static <A,T extends Comparable<T>>
	int searchIndexedBinaryToHigh(
			final List<A> list, 
			final F1<A,T> keyF, 
					T key) {
		RandomAccessCol<T> col = (RandomAccessCol<T>) randomAccessCol(list, keyF);
		
		int index = searchIndexedBinary(key, col);
		if (index <0) {
			return -index -1 -1;
		}
		
		for (; index<col.size()-1; index++) {
			if (!ObjectUtil.equals(key, col.get(index+1))) {
				return index;
			}
		}
		
		return index;
	}