anchor.diff:                                   population,
                                    [length(I) || I <- Islands]),
               logger:logGlobalStats(sequential,{Counter#counter.death,
  -                Counter#counter.fight,
  -                Counter#counter.reproduction,
  -                Counter#counter.migration}),
  -%%             io:format("Timestamp: ~p~n",[os:timestamp()]),
  -%%             io:format("Best fitness: ~p~n",[misc_util:result(lists:flatten(Islands))]),
  -%%             io:format("Total population: ~p~n",[length(lists:flatten(Islands))]),
  -%%             io:format("Fights: ~p~n",[Counter#counter.fight]),
  -%%             io:format("Reproductions: ~p~n",[Counter#counter.reproduction]),
  -%%             io:format("Deaths: ~p~n",[Counter#counter.death]),
  -%%             io:format("Migrations: ~p~n",[Counter#counter.migration]),
  -%%             io:format("~n"),
  -%%             io_util:printSeq(Islands),
  +                                              Counter#counter.fight,
  +                                              Counter#counter.reproduction,
  +                                              Counter#counter.migration}),
  +            io_util:printSeq(Islands),
               timer:send_after(config:writeInterval(),write),
               loop(Islands,#counter{});
           theEnd ->
  
positive.code:             loop(NewIslands,NewCounter#counter{migration = NrOfEmigrants + Counter#counter.migration})
      end.
  
  -spec countAllIslands([list()],counter()) -> counter().
  %% @doc Liczy kategorie (ile fights,deaths etc.) na wszystkich wyspach i dodaje do Counter.
  countAllIslands(GroupedIslands,Counter) ->
      CountedIslands = [misc_util:countGroups(I,#counter{}) || I <- GroupedIslands],
      lists:foldl(fun misc_util:addCounters/2,Counter,CountedIslands).
  
negative.code: %% ====================================================================
  %% Internal functions
  %% ====================================================================
  %% @doc Funkcja tworzaca odpowiednia ilosc wysp i przechodzaca do glownej petli.
  %% Zwracany jest koncowy wynik.
  -spec init(ProblemSize::pos_integer(), Time::pos_integer(), Islands::pos_integer(), Topology::topology:topology(), Path::string()) -> float().
  init(ProblemSize,Time,IslandsNr,Topology,Path) ->
      Islands = [genetic:generatePopulation(ProblemSize) || _ <- lists:seq(1,IslandsNr)],
      sequential:init(Time,IslandsNr,Topology,Path),
      loop(Islands,#counter{}).
  
  %% @doc Glowa petla programu. Kazda iteracja powoduje ewolucje nowej generacji osobnikow.
  -spec loop([island()],counter()) -> float().
  loop(Islands,Counter) ->
      receive
          write ->
  