event.erl

loop(S = #state{server=Server, to_go=[T|Next]}) ->
    receive
        {Server, Ref, cancel} ->
            Server ! {Ref, ok}
    after T*1000 ->
            if Next =:= [] ->
                    Server ! {done, S#state.name};
                Next =/= [] ->
                    loop(S#state{to_go=Next})
            end
    end.