LISP Program to Find Greatest of Three Numbers

(defun max3(a b c)
     (cond((>a b) (cond((>a c)
                        (format t "Max ~a"
                         (t(format t "Max ~a"
                    ((>b c> (format t "Max ~a"
                             (t format t "MAX ~a" c))))