(defn max-block [conn]
  (let [item (d/q '[:find (max ?block_nr) .
                    :with ?item
                    :where [?item :item/block_nr ?block_nr]]
                  (d/db conn))]
    (touch conn item)))