#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