(define l (read)) (define m (read)) (define n (read)) (let loop ((ans 0) (s (+ (* l 100) (* m 25) n))) (cond ((>= s 1000) (loop ans (mod s 1000))) ((>= s 100) (loop (div s 100) (mod s 100))) ((>= s 25) (loop (+ ans (div s 25)) (mod s 25))) (else (print (+ ans s)))))