Processus
Variable globale modifiable

-module (globvar).
-export ([create/2, set/2, get/1, varloop/1]).

create (Name, InitialValue) ->
    register (Name, spawn (?MODULE, varloop, [InitialValue])).

set (Name, Value) ->
    Name ! {set, Value}.

get (Name) ->
    Name ! {get, self()},
    receive
        {value, X} ->  X
    end.

varloop (Value) ->
    receive
        {set, N} -> varloop (N);
        {get, P} -> P ! {value, Value}, varloop (Value)
    end.