sub f {
#234567890#234567890#234567890#234567890#234567890#234567890#234567890#234567890
for(1..($b=pop)++){$b++;$b--if$_%4;$b++if$_%100;$b--if$_%400}$b%7
}