(defn apply-template [uri parameters {:keys [result]}]
  (reduce (fn [acc {:keys [name property]}]
            (let [value (get result property)
                  value (or (get value "@value") (get value "@id"))]
              (if (nil? value)
                (throw (Exception. (str "Missing parameter " name " for template " uri)))
                (string/replace uri (str "{" name "}") (str value)))))
          uri
          parameters))