(let (
      (goal (read (current-input-port)))
      )
    (let loop((i 0))
        (if (> goal (expt 2 i))
                (loop (+ i 1))
                (begin (display i) (newline))
        )
    )
)