foreach {y m d} [read stdin] {if \$m<3 {incr y -1;incr m 12} puts [expr ($d+($m*13+8)/5+$y+$y/4-$y/100+$y/400)%7]}