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

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

  (is (= (subst 'topping 'fudge '())

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

(with-test
  (def insertR 
