test

-module(tr).
-compile([export_all]).

proc1() ->
  timer:sleep(1000),
  receive
    {high, M} ->
      io:format("~p~n", [M])
  after
    0 ->
      receive
        {med, M} ->
          io:format("~p~n", [M])
      after
        0 ->
          receive
            {low, M} ->
              io:format("~p~n", [M])
          end
      end
  end,
  proc1().

proc2() ->
  Pid = spawn(tr, proc1, []),
  Pid ! {low, low},
  Pid ! {med, med},
  Pid ! {high, high}.