(defn new-position-id
  "creates a new, unique position id"
  []
  (let [new-id (random-id 8)]
    (if-not (position new-id) new-id (new-position-id))))