; your code goes here
(defun a (a b c d)
	(max (+ (* a b) (* c d)) (+ (* a c) (* b d)) (+ (* a d) (* b c))))
	
(format t "~d" (a (read) (read) (read) (read)))