(format t "~a~%"
	(loop for d in (list 31 28 31 30 31 30 31 31 30 31 30 31)
	      for m from 1 to 10
	      sum (loop for b from 1 to d
			when (eql m (+ (floor (/ b 10)) (mod b 10)))
			  count b)))