Task

Take a combined set of elements and apply a function to each element.




(defun apply-to-each (xs)
   (if (endp xs)
       nil
       (cons (fn-to-apply (first xs))
             (sq-each (rest xs)))))
 
(defun fn-to-apply (x)
   (* x x))
 