sub f {
#234567890#234567890#234567890#234567890#234567890#2
$b+=$_%400?$_%100?$_%4?0:1:0:1for 1..($b=pop)++;$b%7
}