Processus
Processus nommé

-module (msgn).
-export ([start/0, counter/1, get/0]).

start () ->
    register (cnt, spawn (?MODULE, counter, [1])).

counter (N) ->
    receive
        Sender -> Sender ! N
    end,            
    counter (N+1).

get () ->
    cnt ! self (),
    receive
        Answer -> Answer
    end.