#!/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))
(+(+ 18 64)(*(+(g 18 22)(+(g 18 64)(*(+(+(* 64 22)18)22)22)22)22)))