-module(echo). -export([start/0]). echo() -> receive {From, Msg} -> From ! {self(), Msg}, echo(); stop -> true end. start() -> Pid = spawn(fun echo/0), % Sending tokens to the server Token = "Hello Server!", Pid ! {self(), Token}, io:format("Sent ~s~n",[Token]), receive {Pid, Msg} -> io:format("Received ~s~n", [Msg]) end, % Stop server Pid ! stop.