define	dtime(t)
	t '0' *x/'1'* = x
	dtime = $(t)
	dtime *p1/'1'*				/s(return)
	t *p1/'1'* *p2/'1'*
	dtime = $(p1 '0') ' ' $(p2)		/(return)

start	Jan = 'january'
	Feb = 'february'
	Mar = 'march'
	Apr = 'april'
	May = 'may'
	Jun = 'june'
	Jul = 'july'
	Aug = 'august'
	Sep = 'september'
	Oct = 'october'
	Nov = 'november'
	Dec = 'december'
	Mon = 'monday'
	Tue = 'tuesday'
	Wed = 'wednesday'
	Thur = 'thursday'
	Fri = 'friday'
	Sat = 'saturday'
	Sun = 'sunday'
	1th = 'first'
	0 = '0'
	1 = '1'
	2th = 'second'
	2 = '2'
	3th = 'third'
	3 = '3'
	4th = 'fourth'
	4 = '4'
	5th = 'fifth'
	5 = '5'
	6th = 'sixth'
	6 = '6'
	7th = 'seventh'
	7 = '7'
	8th = 'eighth'
	8 = '8'
	9th = 'ninth'
	9 = '9'
	10 = 'ten'
	10th = 'tenth'
	11th = 'eleventh'
	12th = 'twelfth'
	12 = 'twelve'
	13 = 'thirteen'
	13th = 'thirteenth'
	13 = 'thirteen'
	14th = 'fourteenth'
	14 = 'fourteen'
	15th = 'fifteenth'
	15 = 'fifteen'
	16th = 'sixteenth'
	16 = '6 teen'
	17th = 'seventeenth'
	17 = '7 teen'
	18th = 'eighteenth'
	18 = '8 teen'
	19th = 'nineteenth'
	19 = '9 teen'
	20th = 'twentieth'
	20 = 'twenty'
	30th = 'thirtieth'
	40 = 'forty'
	50 = 'fifty'
	30 = 'thirty'
	bl = '. '
	date = syspit
	syspot = 'today is'
l1	date *x* '  ' *y* = x ' ' y		/s(l1)
	date *wday* ' ' *mon* ' ' *day* ' ' *hour* ':' *min* ':' *sec*/f(end)
	syspot = $(wday) bl
	syspot = $(mon)
	$(day 'th') *x/'1'*			/s(dsimple)
	day *p1/'1'* *p2/'1'*
	syspot = $(p1 '0') ' ' $(p2 'th') bl		/(time)
dsimple	syspot = $(day 'th') bl
time	syspot = 'at the tone the time will be.'
	syspot = dtime(hour) bl dtime(min) bl 'and ' dtime(sec) ' second.'
end	syspot = 'thank you'
