Разделение труда

Другой программист может реализовать "низ":

(defun square (x)           ; натуральные экспонента
  (exp (+ (log x) (log x))) ; и логарифм