c:=68
list("L@MG","\x09\x0f\x16\x09\x1c\x16\x08\x0e","#\x1d*\x1d1\x1d#8\x168\x1e18$?+?+?+8$8\x1d1\x16*\x0f#\x08\x1c\x16")at(Date second&3)foreach(b,writeln((c=c+b%7)asCharacter,b/7|0))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).