(print (funcall (lambda (x y z)
			   (flet ((square (x) (* x x)))
			     (apply #' + (mapcar #'square (cdr (sort (list x y z) #'<))))))
			 2 4 1))