anchor.diff:                         Log,
                          Filter,
                          Work,
  -                       Shuffle]}],
  -        %% TODO dopisac migracje przy uzyciu funkcji z sequential
  -%%               fun(Datachunk) ->
  -%%                       {_NrOfEmigrants, IslandsMigrated} = evolution:doMigrate(Datachunk),
  -%%                       IslandsMigrated
  -%%               end,
  -              fun identity/1,
  -              fun identity/1},
  +                       Shuffle]}]},
  +
  +    Migration = {seq, fun(AllIslands) ->
  +                              AllIslands
  +                      end},
  +    %% TODO dopisac migracje przy uzyciu funkcji z sequential
  +    %%               fun(Datachunk) ->
  +    %%                       {_NrOfEmigrants, IslandsMigrated} = evolution:doMigrate(Datachunk),
  +    %%                       IslandsMigrated
  +    %%               end,
  +    %%               fun identity/1,
  +    %%               fun identity/1},
   
       [FinalIslands] = skel:do([{feedback,
  -                               [OneRun],
  +                               [OneRun,
  +                                Migration],
                                  _While = fun(List) ->
                                                   Fitness = lists:max([misc_util:result(Island) || Island <- List]),
                                                   Population = lists:sum([length(Island) || Island <- List]),
  
positive.code:                                                 os:timestamp() < EndTime
                                          end}],
                               [Islands]),
  %%     io_util:printSeq(FinalIslands),
      misc_util:result(lists:flatten(FinalIslands)).
  
  %% sk_sendToWork({death, _}) ->
  
negative.code:                                         Island)
                     end},
  
      Work = {map,
              [{seq,fun emas:meeting_function/1}], %% TODO substitute emas with agent_env!!!
              4},
  
      Shuffle = {seq, fun(Island) ->
                              misc_util:shuffle(lists:flatten(Island))
  