10 lines
543 B
Plaintext
10 lines
543 B
Plaintext
DEFINE weekdays == ["Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday"];
|
|
months == ["January" "February" "March" "April" "May" "June" "July" "August"
|
|
"September" "October" "November" "December" ].
|
|
|
|
time localtime [[0 at 'd 4 4 format] ["-"] [1 at 'd 2 2 format] ["-"] [2 at 'd 2 2 format]]
|
|
[i] map [putchars] step '\n putch pop.
|
|
|
|
time localtime [[8 at pred weekdays of] [", "] [1 at pred months of] [" "] [2 at 'd 1 1 format]
|
|
[", "] [0 at 'd 4 4 format]] [i] map [putchars] step '\n putch pop.
|