(define yuki152
  (letrec
    ((loop (lambda (x y l) (let ((xy (+ x y))) (if (<= (* 8 x xy) l) (+ (modulo xy 2) (loop xy x l) (loop xy y l)) 0)))))
    (display (loop 2 1 (read)))
    (newline)))