                (>! percept-chan
                    {:name "Head touched" :satisfaction-vector
                     {:phys-anger 0.2
-                     :saf-bored -0.3
-                     :saf-delight 0.1}}))
+                     :saf-bored -0.3}}))
              (recur (<! event-chan)))))
 
 (defn hand-touch-process

                   {:name "Hand touched" :satisfaction-vector
                    {:phys-anger -0.2
                     :saf-bored -0.1
                     :saf-delight -0.1
                     :soc-lonely -0.3}}))
             (recur (<! event-chan)))))


          percept-chan (chan)
          state-chan (chan)
          display-chan (chan)
          head-chan (chan)
          hand-chan (chan)
          foot-chan (chan)
          clients-atom (atom [display-chan])]
      (nao/say robot "I'm starting to feel quite emotional")
      (let [ev-robot
            (-> robot
