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