(defn addable?
  [list rank]
    (every? false? (map (partial apply (partial test? (+ 1 (count list)) rank))
                        (map-indexed (fn [i v] (vector (inc i) v))
                                      list))))