       (when found-flight (reserve-relation reservation found-flight n-people))
       (when found-room   (reserve-relation reservation found-room n-people))
       (alter reservation assoc
-        :status :in-process
+        :status :processed
         :pnr    pnr)))
   (log "finished reservation" (:id @reservation)))
 

     :cars    (generate-relation)
     :flights (generate-relation)
     :rooms   (generate-relation)}))

(defn- look-for-seats [relations n-seats]
  "Look for a relation with `n-seats` free seats in `relations`, and return the


; MAIN

(defn -main [& args]
  "Main function. `args` should be a list of command line arguments."
  (when-let [options (parse-args args)]
