my $net = new AI::NeuralNet::BackProp(3,5,1);

##</code><code>##

my $net = new AI::NeuralNet::BackProp(3,6,1);

##</code><code>##

   my @set = (
                [ 0,0,0,0,0,1 ], [ 1 ],
                [ 0,0,0,1,0,1 ], [ 1 ],
                [ 0,0,1,0,0,1 ], [ 1 ],
                [ 0,0,1,1,0,1 ], [ 1 ],
                [ 0,0,0,0,1,1 ], [ 0 ],
                [ 0,0,0,1,1,1 ], [ 0 ],
                [ 0,0,1,0,1,1 ], [ 0 ],
                [ 0,0,1,1,1,1 ], [ 0 ],