Erlang 8.11.2

gistfile1.erl

-module(ring).
-export([clasp/0,shackle/1,send/1]).

clasp() ->
    spawn(fun() -> loop([]) end).

shackle(Pid) ->
    spawn(fun() -> loop(Pid) end).

send(Pid) ->
    Pid ! {next}.

loop(Pid) ->
    receive
        {next} ->
            io:format("Send request received"),
            Pid ! {next},
            loop(Pid)
    end.



%CPid = ring:clasp().
%Pid1 = ring:shackle(CPid).
%Pid2 = ring:shackle(Pid1).
%Pid3 = ring:shackle(Pid2).
%Pid4 = ring:shackle(Pid3).
%Pid5 = ring:shackle(Pid4).
%ring:send(Pid5).