(defun square (n)
  (* n n))

(defun square-list (list)
  (if (null list)
    '()
    (cons (square (first list))
          (square-list (rest list)))))