#!perl -p
use Time::Local;print+(split$",localtime($t=timegm 5..8,$'-/ /,$`))[1]," $`$/",$"x(($w=(localtime$t)[6])%7*3);printf"%3d%s",$_,++$w%7?"":$/for 1..28+($'-2?3-$'*.86%2:!($`%4));$_=$w%7?$/x2:$/