(display (let ((a (read)) (b (read))) (exact->inexact (/ (+ a b) 2))))
(newline)