 (def demo-motivations
   [{:id :phys-anger :name "anger" :layer :physical
     :valence -0.7 :arousal 0.7
-    :desire 0.0 :decay-rate -0.1 :max-delta 1.0}
+    :desire 0.0 :decay-rate -0.05 :max-delta 1.0}
    {:id :phys-hunger :name "hunger" :layer :physical
     :valence 0.0 :arousal 0.5
-    :desire 0.0 :decay-rate 0.1 :max-delta 1.0}
+    :desire 0.0 :decay-rate 0.0 :max-delta 1.0}
    {:id :phys-fear :name "fear" :layer :physical
     :valence -0.9 :arousal 0.2
     :desire 0.0 :decay-rate -0.2 :max-delta 1.0}

                     :saf-playful 0.2}}))
             (recur (<! event-chan)))))

(defn run-demo
  [hostname]
  (do

               (>! percept-chan
                   {:name "Head touched" :satisfaction-vector
                    {:phys-anger 0.2
                     :saf-bored -0.3}}))
             (recur (<! event-chan)))))

(defn hand-touch-process
