anchor.diff:                   S <- lists:seq(1, ?BLOCK_MAX_SIZE),
                    X <- lists:seq(1, ?AREA_WIDTH)],
       Ets = init_local_ets(G),
  -    lists:map(fun (B) -> single_brute(Ets, B) end, Blocks).
  +    Res = lists:map(fun (B) -> single_brute(Ets, B) end, Blocks),
  +    ets:delete(Ets),
  +    Res.
   
   single_brute(Ets, Block) ->
       ets:insert(Ets, Block),
  
positive.code:     DY = (Sum + Sigma - OldY)/Tau,
      Y = OldY + DY,
      O = 1 / (1 + math:exp(-G * Y)),
      {X, V, #vstate{o=O, y=Y}}.
  
  cognitive_step(Ets) ->
      [new_vstate(Ets, Name) || Name <- [a, b, c, d]].
  
negative.code: 
  step(Ets) ->
      sense(Ets),
      cognitive_step(Ets),
      actuate(Ets),
      move_block(Ets),
  %    io:format("~P~n~n", [ets:match_object(Ets, '_'), 100]),
      nil.
  
  