(let ((n (read))) (princ (/ (loop with i = 1 do (setq i (* i 2)) when (> i n) return i) 2)))