Select Code to Download

sub f {
  #23456789_123456789_123456789_123456789_123456789_12
  $b+=$_%400?$_%100?$_%4?1:2:1:2for 1..pop;$b%7+1
}