(defun main (&rest argv) (declare (ignorable argv)) (let* ((n (read)) (ans 1)) (dotimes (_ 128) (setf ans (* 2 ans)) (setf ans (mod ans n))) (format t "~d~%" ans))) (main)