for(i,0,(! :=list("J10K9K11L10","F1G2H3J1J4K3L1L2","D5E4E6F4F7G4G5G8H3H8J4J7J8K5K9L6L9M6M9N6N8O5O8P4P7Q3Q6R2R5S1S4T3")at(Date second&3))size,write(!slice(i,i+1),if((b:= !at(i+1))and b<58,"","
")))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).