month = [31,28,31,30,31,30,31,31,30,31,30,31]
main=print$sum$concat[[1|d<-[1..(month!!(m-1))],m==(d`mod`10+d`div`10)]|m<-[1..12]]