(defn pong-named []
  (receive {:ping (handle-named [the-msg]
                                (do (println "[PONG]" the-msg "received.")
                                    (!- "ping" :pong)
                                    (pong)))
            :stop (handle (println "[PONG] stopping."))}))