anchor.diff:      (if (> count 0)
           (cons value (make-list value (- count 1)))
           (list)))
  -(run-test (equal? (make-list 1 5) (list 1 1 1 1 1)))
  +(run-test (equal? (make-list 1 5) '(1 1 1 1 1)))
   
   (define (fact n)
       (if (<= n 1)
  
positive.code: (run-test (not (eq? 1 2)))
  (run-test (not (equal? 1 2)))
  
  (define v0 (quote (1 2)))
  (define v1 (quote (1 2)))
  (run-test (eq? v0 v0))
  (run-test (not (eq? v0 v1)))
  (run-test (equal? v0 v1))
  
negative.code: (run-test (= (add-4-inside-let 6) 10))
  
  (define (add x y) (+ x y))
  (run-test (= (apply add '(1 2)) 3))
  
  (define (f x y) (begin (+ x y) (+ x y)))
  (run-test (= (f 1 2) 3))
  