   (def subst
     (fn [new old lat]
       (cond (null? lat) '()
-            (eq? (car lat) old) (cons new (cdr lat))
-            :else (cons (car lat)
+            (eq? (car lat) old) (conss new (cdr lat))
+            :else (conss (car lat)
                         (subst new old (cdr lat))))))
 
   (is (= (subst 'topping 'fudge '())

  (def multiinsertR
    (fn [new old lat]
      (cond (null? lat) '()
            (eq? (car lat) old) (cons old (cons new (multiinsertR new old (cdr lat))))
            :else (cons (car lat) (multiinsertR new old (cdr lat))))))

  (is (= (multiinsertR 'new 'old '())
         '()))

                   ((no) more)))
         '((five plums)
           eleven
           (no)))))

(with-test
  (def insertR 
