echo.erl

-module(echo).
-export([go/1, loop/0]).

go(T) ->
    Pid2 = spawn(echo, loop, []),
    Pid2 ! {self(), hello},
    receive
        {Pid2, Msg} ->
            utils:sleep(T * 1000),
            io:format("P! ~w~n",[Msg])
    end,
    Pid2 ! stop.

loop() ->
    receive
        {From, Msg} ->
            From ! {self(), Msg},
            loop();
        reload ->
            echo:loop();
        stop ->
            true
    end.