#!/usr/local/bin/sbcl --script
(setq a 18)
(setq b 64)
(setq c 22)
(setq y 16)
(defun g (m n)
  (if (> m n)
    m
    n))
(+(+ a b)(*(+(g a c)(+(g a b)(*(+(+(* b c)a)c)c)c)c)))