@_=localtime;
$~=$_[2]%12%10;$"=$_[2]%10>9;
$.=$_[1]%10;$:=$_[1]-$.;$:/=10;
$_=$_[0]%10;$^=$_[0]-$_;$^/=10;
foreach $,($~,$",$.,$:,$_,$^){$, = sprintf"%04b",$,;}