(defcomponent receiver ((a 8))
  (:process process1
   here)
  (:process process2
            not-here))