(define yuki32 (let* ( (l (read)) (m (read)) (n (read)) (p (+ m (quotient n 25))) (q (modulo n 25)) (r (+ l (quotient p 4))) (s (modulo p 4)) (t (modulo r 10)) (ans (+ q s t)) ) (display ans) (newline) ) )