Составить программу, определяющую максимальное из трех чисел, не используя стандартную функцию

(defun mymax (x y z)
   (if (> x y)
       (if (> x z)
           x
           (if (> y z)
               y
               z
           )
       )
       (if (> y z)
           y
           (if (> x z)
               x
               z
           )
       )
   )
)

(mymax 2 3 1)

(defun f (x)
         (* x x)
)

(defun find-max (a b h)
   (let* ((x a)(fx (f x)))
      (loop
         (setq x (+ x h))
         (if (> x b) (return fx))
         (if (> (f x) fx)
            (setq fx (f x))
         )
      )
   )
)

(find-max -1 1 0.2)

(defun myreplace (x y list)
   (if (null list)
      nil
      (if (equal (car list) x)
         (cons y (myreplace x y (cdr list)))
         (cons (car list) (myreplace x y (cdr list)))
      )
   )
)

(myreplace 'a 'b '(a b c d a e f))

(defun F (X Y L)
 (if L
  (cons
   (if (equal (car L) X) Y (car L))
   (F X Y (cdr L)))))

(defun F (Y Xmin Xmax Delta)
 (if (< Xmin Xmax)
  ((lambda (curr next)
    (if (> curr next) curr next))
   (funcall Y Xmin)
   (F Y (+ Xmin Delta) Xmax Delta))
  (funcall Y Xmax)))