Рассчет груза для тарировки динамоментрического ключа (код на Emacs Lisp, но наверное и на Common Lisp со Schema заведется)

dinamometr.el

;; Данный код написан в соответствии с
;; инструкцией по тарированию динамометрических ключей
;; https://yadi.sk/i/aZy87aLPnncDM

(defun dinamo (mz)
  "Возвращает массу груза (кг), при которой должно произойти
срабатывание предельного динамометрического ключа, выставленного
на момент закручивания mz"
  
  (let* ((g 9.81)                        ; ускорение свободного падения (м/с^2)
         (massa 1.6)                     ; масса ключа (кг)
         (l 0.41)                        ; расстояние от оси поворота до центра приложения груза (м)
         (l2 0.195)                      ; расстояние от оси поворота до центра тяжести ключа (м)
         (dm (* (* massa g))))
  
    (/ (- mz dm) l g)))                  ; вес груза (кг)

(mapcar 'dinamo '(42 70 98 126))