(define (System.out.println x) (begin (display x) (newline) ) ) (let ( (Progress (read)) (Remaining (read)) ) (System.out.println (floor (/ Remaining (- 1 (/ Progress 100))))) )