anchor.diff:           (make-instance 'bp-learner :bpn bpn))
     (log-msg "Starting to train the whole BPN~%")
     (train (make-sampler training
  -                       :max-n (* (- n-epochs n-softmax-epochs)
  -                                 (length training))
  +                       :n-epochs (- n-epochs n-softmax-epochs)
                          :omit-label-p t)
            (make-instance 'mnist-cg-bp-trainer
                           :training training
  
positive.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
                         :max-n (* n-softmax-epochs (length training))
                         :omit-label-p t)
           (make-instance 'mnist-cg-bp-trainer
                          :training training
                          :test test
  
negative.code:                             :n-softmax-epochs (if quick-run-p 1 5)
                              :n-epochs (if quick-run-p 1 37))
             (unless quick-run-p
               (save-weights bpn-filename bpn))))
      (values bpn dbn)))
  
  
  