[/y(\x1f\x1c\x1f\x1e\x1f\x1e\x1f\x1f\x1e\x1f\x1e\x1f)/o{=only}/p{o dup 9 le{0 o}if o}>>begin[(%stdin)run]{1 add dup[0 912 1096 1461 1826 2191 2557 2922 3287 3652 4199 4564 4929 5660 6574 7305 7670 8217 8582 8947 9496 10043 10592 13149]{ge{1 sub}if dup 86400 idiv}forall 0 1 99{dup 4 mod 2 eq{366 y 1 29}{365 y 1 28}ifelse put dup 3 index gt{pop exit}if exch pop sub}for 1970 add o 0 1 11{dup y exch get dup 3 index gt{pop exit}if exch pop sub}for 1 add(-)p 1 add(-)p 2{dup 60 mod exch 60 idiv}repeat 24 mod( )p(:)p(:)p()=}forall
Note that non-ascii characters in the above source code will be escaped (such as \x9f).