-module(echo_server).

-export([start/0, loop/1]).

loop(0) ->
  io:format("ping finished~n", []);

loop(N) ->
  receive
    {ping, Node} ->
      io:format("~w: Got ping req from: ~w~n", [self(), Node]),
      Node ! {pong, self()};
    X ->
      io:format("Unexpected message: ~w~n", [X])
  end,
  echo_server:loop(N - 1).

start() ->
  Pid = spawn(echo_server, loop, [10]),
  io:format("Starting server, pid=~w~n", [Pid]),
  register(echo, Pid).