$_+=7-y/FrWed//,printf" %02d",$d=(gmtime$_*86400)[3],$d>7?$s=$/:printf"$s%02d:",++$-for(<>)x52