(let (
       (OneStep (read (current-input-line)))
       (Goal        (read (current-input-line)))
       )
 (let i((= i 1))
 (if (>= (* OneStep i) Goal)
     (display i)

     (i (+ i 1))
 )
 ))