(use util.stream) (define (fib-mod m) (stream-cons 0 (stream-cons 1 (stream-map (lambda (x y) (modulo (+ x y) m)) (fib-mod m) (stream-cdr (fib-mod m)))))) (define yuki526 (let* ((n (read)) (m (read))) (print (stream-ref (fib-mod m) (- n 1)))))