receive_all([],Out) ->
    lists:reverse(Out);
receive_all([P|PS],Out) ->
    receive
	{P,Res} ->
	    receive_all(PS,[Res|Out])
    end.

receive_all(Pids) ->
    receive_all(Pids,[]).