(use srfi.60)

(define (fast-fibo i m)
  (define (helper ls a b)
    (if (null? ls)
      a
      (if (car ls)
        (helper (cdr ls)
          (modulo (+ (* a a) (* b b)) m)
          (modulo (* b (+ a a b)) m))
        (helper (cdr ls)
          (modulo (* a (- (+ b b) a)) m)
          (modulo (+ (* a a) (* b b)) m)))))
  (helper (integer->list i) 0 1))

(define yuki526 (display (fast-fibo (- (read) 1) (read))))