echo.erl.simple

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

% This is a simple echo server
go()->
	register(echo,spawn(echo,loop,[])),
	echo!{self(),hello},
	receive
		{_Pid,Msg}->
			io:format("Echo Message:~w~n",[Msg])
	end.

loop()->
	receive
		{From,Msg}->
			io:format("Message received:~w~n",[Msg]),
			From!{self(),Msg},
			loop();
		stop->
			true
	end.