anchor.diff:             (make-trainable-parameter
               (α #'/
                  (make-random-array (list m n) :element-type (element-type array))
  -               n)))
  +               (* m n))))
            (biases
              (make-trainable-parameter
               (α #'/
  
positive.code:                   :element-type 'single-float)))
      (values
       (make-network
        (softmax
         (make-fully-connected-layer
          (relu
           (make-maxpool-layer
  
negative.code: (defun load-array (&rest path)
    (numpy-file-format:load-array
     (asdf:component-pathname
      (asdf:find-component *mnist* path))))
  
  (defparameter *train-images* (load-array "train-images.npy"))
  (defparameter *train-labels* (load-array "train-labels.npy"))
  