anchor.diff:         true ->
               NewPos = RawPos
       end,
  +%    io:format("Old position: ~p, new position: ~p~n", [OldPos, NewPos]),
       ets:insert(Ets, {tpos, NewPos}).
   
  -edge_from(X) when X == a orelse X == b ->
  -    lists:seq(1, ?TRACKER_SIZE) ++ [a, b];
  -edge_from(X) when X == c orelse X == d ->
  +edge_from(X) when X =:= a orelse X =:= b ->
  +    [a, b] ++ lists:seq(1, ?TRACKER_SIZE);
  +edge_from(X) when X =:= c orelse X =:= d ->
       [a, b, c, d].
   
   get_output(Ets, X) when is_atom(X) ->
  
positive.code: 
  
  test() ->
      simulate_run((random_genotype_fn(nil))()).
  
negative.code:                                   At <- lists:seq(P,P + ?TRACKER_SIZE - 1)])).
  
  %% Speed generated by a motor neuron
  speed(X) when 0.2 =< X, X < 0.5 -> 1;
  speed(X) when 0.5 =< X, X < 0.9 -> 2;
  speed(X) when 0.9 =< X, X < 0.95 -> 3;
  speed(X) when 0.95 =< X -> 4;
  speed(_) -> 0.
  
  