     :satisfaction-vector {:phys-anger 0.0
                           :phys-hunger 0.0
                           :phys-fear -0.2
-                          :saf-bored -0.25
-                          :saf-delight -0.5
+                          :saf-bored -0.5
+                          :saf-delight -0.6
                           :saf-playful -0.2
                           :soc-lonely -0.3}}
    })

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

(defn back-head-touch-process


(defn fear-reaction-percept
  [done-signal]
  {:name "Got scared"
   :satisfaction-vector {:phys-fear -0.2
                         :saf-bored -0.5}
   :timestamp (t/now)
   :locations @location
   :other-agents #{}})

(defn fear-management
  [robot percept-chan]
