(let ((mday '(31 28 31 30 31 30 31 31 30 31 30 31 0)))
  (let loop ((m 1) (d 1) (lday (car mday)) (ldays (cdr mday)) (c 0))
    (cond ((zero? lday)
           (print c))
          ((> d lday)
           (loop (+ m 1) 1 (car ldays) (cdr ldays) c))
          ((= m (+ (div d 10) (mod d 10)))
           (loop m (+ d 1) lday ldays (+ c 1)))
          (else
           (loop m (+ d 1) lday ldays c)))))