18 lines
492 B
Plaintext
18 lines
492 B
Plaintext
#import std
|
|
#import cli
|
|
|
|
months = ~&p/block3'JanFebMarAprMayJunJulAugSepOctNovDec' block2'010203040506070809101112'
|
|
|
|
completion =
|
|
|
|
-:~& ~&pllrTXS/block3'SunMonTueWedThuFriSat'--(~&lS months) -- (
|
|
--','* sep`, 'day,day,sday,nesday,rsday,day,urday',
|
|
sep`, 'uary,ruary,ch,il,,e,y,ust,tember,ober,ember,ember')
|
|
|
|
text_form = sep` ; mat` + completion*+ <.~&hy,~&tth,--','@th,~&ttth>
|
|
numeric_form = sep` ; mat`-+ <.~&ttth,@tth -: months,~&th>
|
|
|
|
#show+
|
|
|
|
main = <.text_form,numeric_form> now0
|