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

     (loop(+ i 1))
 )
 ))