(defun my-cube (number)
  (let ((step (* number number)))
    (let ((result (* step number)))
      (my-cube-logging step result)
      result)))

(defun my-cube-logging (a b)
  (format t "Intermediate number was ~a and result was ~a" a b))

(my-cube 8)