with
  Neuron;

package ANN is
---------------------------------------------------------------------------
---------------------------------------------------------------------------

Neuron_Count: positive := 1000;

type ANN_Type is
---------------------------------------------------------------------------
-- Every neuron in the ANN is connected to every other neuron in the ANN.
---------------------------------------------------------------------------
  array(1..Neuron_Count)
    of Neuron.Neuron_Type( Synapses_Count => Neuron_Count - 1);


procedure Initialize(ANN: in out ANN_Type);
procedure Show_State(ANN: in ANN_Type);
procedure Think(ANN: in out ANN_Type);

---------------------------------------------------------------------------
---------------------------------------------------------------------------
end ANN;