anchor.diff:              ok
       end.
   
  -
   test() ->
       random:seed(now()),
  -    simulate_run((random_genotype_fn(nil))()).
  +    Fn = random_genotype_fn(nil),
  +    G1 = Fn(), G2 = Fn(),
  +    X = crossover_fn(nil),
  +    M = mutation_fn([1.0, 100]),
  +    M(G1),
  +    io:format("~p~n~p~n", [G1, M(G1)]),
  +    ok.
  +
  
positive.code: 
  crossover_fn(_) ->
      fun (G1, G2) ->
              G1
      end.
  
  mutation_fn(_) ->
      fun (Geno) ->
              Geno
      end.
  
  analyze_fn(Sock, Fitness_fn) ->
  
negative.code:     ets:insert(Ets, {fitness, 0}),
      new_block(Ets),
      Res = genetica_utils:repeatedly(?NOF_BLOCKS, fun () -> block_run(Ets) end),
  %    io:format("~p~n", [Res]),
      ets:delete(Ets),
      Res.
  
  refit(#ptype{gtype = G, ref = Ref}) ->
      Fitness = gen_fit(G),
      ets:insert(genetica_cognitive_ets, {Ref, Fitness}),
      ok.
  