        (rr/content-type
         (rr/response (lfpr-caste caste))
         content-type))
+  (GET "/wpr/caste/:caste" [caste]
+       (rr/content-type
+        (rr/response (wpr-caste caste))
+        content-type))
+
+  (GET "/umr/caste/:caste" [caste]
+       (rr/content-type
+        (rr/response (umr-caste caste))
+        content-type))
+
+  (GET "/total/caste/:caste" [caste] (rr/content-type
+                                      (rr/response {:lfpr (lfpr-caste caste)
+                                                    :wpr (wpr-caste caste)
+                                                    :umr (umr-caste caste)})
+                                      "application/json; charset=utf-8"))
 
   (GET "/lfpr/caste/:caste/:type" [caste type]
        (rr/content-type

(defn lfpr-caste [tstring]
  (db/get-lfpr-by-caste {:caste tstring}))

(defn lfpr-caste-type [t1string t2String ]
  (db/get-lfpr-by-casteandtype {:caste t1string :type t2String}))


(defn -main
  "I don't do a whole lot ... yet."
  [& args]
  (jetty/run-jetty app {:port 8091
                        :join? false}))
