(let (
       (OneStep (read (current-input-port)))
       (Goal        (read (current-input-port)))
       )
    (display (ceiling (/ Goal OneStep) 1)))
)