anchor.diff:              (loop for k being the hash-keys in books-to-heros
                     using (hash-value v)
                     collect (list k v))))
  -      (assert-equal ____ (length pairs-in-table))
  -      (true-or-false? ____ (find '("The Hobbit" "Bilbo") pairs-in-table :test #'equal))))
  +      (assert-equal 4 (length pairs-in-table))
  +      (true-or-false? t (find '("The Hobbit" "Bilbo") pairs-in-table :test #'equal))))
   
   
   (define-test test-value-accumulation-forms
  
positive.code:             (loop for letter in letters collect letter))
             (loop-result-on
              (loop for letter on letters collect letter)))
        (assert-equal loop-result-in ____)
        (assert-equal loop-result-on ____ )))
  
  
  (define-test test-loop-in-skip-by
  
negative.code:                  minimize x into minimized
                   finally (return (list collected counted summed maximized minimized)))))
        (destructuring-bind (col count sum max min) loop-1
          (assert-equal col '(1 2 4 8 16))
          (assert-equal count 5)
          (assert-equal sum 31)
          (assert-equal max 16)
          (assert-equal min 1))))
  
  
  (define-test test-destructuring-bind
  