p.erl

-module(p).
-export([start_link/0, print_state/0, init/1, loop/1]).

start_link() ->
    proc_lib:start_link(?MODULE, init, [self()]).
    
print_state() ->
    {ok, Result} = gen:call(?MODULE, '$p', print_state),
    Result.
    
init(Parent) ->
    register(?MODULE, self()),
    proc_lib:init_ack(Parent, {ok, self()}),
    ?MODULE:loop(0).
    
loop(State) ->
    receive
        {'$p', {From, Mref}, print_state} ->
            io:format("state: ~p~n", [State]),
            gen:reply({From, Mref}, ok),
            ?MODULE:loop(State+1)
    end.