(define (solve c xxv i) (let* ((rem-i (mod i 25)) (exd-xxv (+ xxv (div i 25))) (rem-xxv (mod exd-xxv 4)) (exd-c (+ c (div exd-xxv 4))) (rem-c (mod exd-c 10))) (+ rem-i rem-xxv rem-c))) (print (solve (read) (read) (read)))