anchor.diff:  
   
   
  -(defun train (network)
  -    
  -  )
  -
  -
  -;; Run the network using the kernels defined above
  -;; -----------------------------------------------
  -(defun main(network)
  +(defun train (network input desired-output)
     (let* ((dev-id 0)
            (n 4096)
            (threads-per-block 256)
            (blocks-per-grid (/ n treads-per-block)))
  +    ;; Make the kernel calls
       (with-cuda (dev-id)
                  (with-memory-blocks 
                    ((GN1 'float *input-layer*)
  
positive.code:                  (sync-memory-block GN5 :device-to-host)
                   ;    (verify-result a b c n)
                   ))))
  
negative.code: 
  ;; Network definition : Using single precision floats b/c that's what GPUs are best at
  
  ;;
  (defun random-init (data n)
    (dotimes (j n)
      (setf (memory-block-aref data j) (random 1.0))))
  
  ;; 
  (defun verify-result (as bs cs m n)
    (dotimes (i m)
      (dotimes (j n)
  