(defun main (&rest argv) (declare (ignorable argv)) (let* ((l (read)) (l/2 (floor l 2))) (format t "~d~%" (* l/2 l/2)))) (main)