(let loop ((100yen (read)) (25yen (read)) (1yen (read)))
  (cond ((>= 1yen 25)
         (loop 100yen (+ 25yen 1) (- 1yen 25)))
        ((>= 25yen 4)
         (loop (+ 100yen 1) (- 25yen 4) 1yen))
        ((>= 100yen 10)
         (loop (- 100yen 10) 25yen 1yen))
        (else
         (print (+ 1yen 25yen 100yen)))))