(defun make-adder (n)
    (function (lambda (k) (+ n k)))
)

(defun square-elements (x c)
    (mapcar #'c x)
)