Processus
Messages prioritaires

-module (prio).

loop () ->
    receive
        {urgent, Message} ->
            handle_urgent (Message)
    after 0 ->
            receive
                {normal, Message} ->
                    handle (Message)
            end
    end,
    loop ().

handle (Message) ->
    io:format ("Message: ~p~n", [Message]).

handle_urgent (Message) ->
    io:format ("Message urgent: ~p~n", [Message]).