/f{print 2 string cvs dup length 1 eq{(0)print}if print}def{(%stdin)(r)file
token not{exit}if 0[78796801 94694402 126230403 157766404 189302405 220924806
252460807 283996808 315532809 362793610 394329611 425865612 489024013 567993614
631152015 662688016 709948817 741484818 773020819 820454420 867715221 915148822
1136073622]{2 index lt{1 add}if}forall sub 86400 2 copy idiv dup 0.26 sub
365.25 div cvi dup 1970 add dup 4 string cvs print 3 1 roll 365.25 mul 0.26 add
cvi sub 1 add 1 exch[31 28 5 index 4 mod 0 eq{1 add}if 31 30 31 30 31 3 copy
30 31]{2 copy gt{sub exch 1 add exch}{pop exit}ifelse}forall exch(-)f(-)f
pop mod 3600 2 copy idiv( )f mod 60 2 copy idiv(:)f mod(:)f()=}loop
Note that non-ascii characters in the above source code will be escaped (such as \x9f).