$_+=7-y/FrWed//,printf" %02d",$d=(gmtime$_*86400)[3],$d>7?$s=$/:printf"$s%02d:",++$-for(<>)x52
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page