(define l (read)) (define m (read)) (define n (read)) (set! m (+ m (quotient n 25))) (set! n (modulo n 25)) (set! l (+ l (quotient m 4))) (set! m (modulo m 4)) (set! l (modulo l 10)) (display (+ l m n)) (newline)