(let (
       (OneStep (read (current-input-port)))
       (Goal        (read (current-input-port)))
       )
    (display (inexact->exact (ceiling (/ Goal OneStep))))
)