(defn pong-named []
  (receive
    [:ping {the-message :msg le-payload :payload}] ->
          (println "[PONG]" the-message "and" le-payload "received."),
          (!- "ping" :pong),
          (pong);
        [:stop] ->
          (println "[PONG] stopping.")))