anchor.diff:      RestOfClients = kill_clients(Number, Clients),
       {reply, ok, RestOfClients};
   
  -handle_call({clients_status, _Strategy}, _, Clients) ->
  -    %% TODO Use Strategy to distinquish which stats to collect
  +handle_call({clients_status, Strategy}, _, Clients) ->
       Stats = lists:foldl(fun(Client, {Total, Connected, Disconnected}) ->
                                   case gen_fsm:sync_send_all_state_event(Client, status) of
                                       connected    -> {Total + 1, Connected + 1, Disconnected};
  
positive.code: 
  -export([start_link/0, start_link/1, init/1, terminate/2, handle_call/3, handle_info/2]).
  
  -export([spawn_clients/1, disconnect_clients/1, kill_clients/1, clients_status/0, ping/0]).
  
  %% Gen Server related
  
  
negative.code:     NewState = repeat(Number,
                        fun() ->
                                flood_utils:log("Starting new flood_fsm with url: ~s, and timeout: ~w",
                                                [?DEFAULT_URL, ?DEFAULT_TIMEOUT]),
                                {ok, Pid} = flood_fsm:start_link(?DEFAULT_URL, ?DEFAULT_TIMEOUT),
                                Pid
                        end,
  