Erlang echo example

echo.erl

-module(echo).
-compile(export_all).

go() ->
  register(echo, spawn(echo, loop, [])),
	echo ! { self(), hello },
	receive
		{ _Pid, Msg } ->
			io:format("~w~n", [Msg])
	end,
	echo ! stop.

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