anchor.diff:        (unless (zerop n-epochs)
           (mgl-example-util:log-msg "Starting to train the whole BPN~%")
           (train
  -         (make-sampler training
  -                       :max-n (* n-epochs n)
  -                       :omit-label-p t)
  +         (make-sampler training :n-epochs n-epochs :omit-label-p t)
            (make-instance 'mnist-bpn-gd-trainer
                           :training training
                           :test test
  
positive.code:       (unless (zerop n-softmax-epochs)
          (log-msg "Starting to train the softmax layer of BPN~%")
          (train
           (make-sampler training
                         :max-n (* n-softmax-epochs n)
                         :omit-label-p t)
           (make-instance 'mnist-bpn-gd-trainer
                          :training training
                          :test test
  
negative.code:                         (batch-size (min (length training) 1000))
                          (n-softmax-epochs 5) n-epochs)
    (log-msg "Starting to train the softmax layer of BPN~%")
    (train (make-sampler training :n-epochs n-softmax-epochs :omit-label-p t)
           (make-instance 'mnist-cg-bp-trainer
                          :training training
                          :test test
  