temp.erl

FindProcs = fun (Pid, Ign) ->
                    A = fun (F, Pid, Ignore) ->
                                Links = [P || P <- element(2, process_info(Pid, links)), is_pid(P), node(P) =:= node()],
                                Monitors = [P ||  {_, P} <- element(2,process_info(Pid, monitors)), is_pid(P), node(P) =:= node()],
                                New = lists:filter(fun (I) -> not lists:member(I, Ignore) end, Links++Monitors),
                                [Pid | lists:flatmap(fun (P) -> F(F, P, New ++ Ignore) end, New)]
                        end,
                    A(A, Pid, Ign)
            end.