*
*	When the output	association for	"sing" is changed to _ttd3 on
*	the MSF	Vax with a voice synthesizer attached, this program sings
*	that old Christmastime favorite, "A Partridge in a pear	tree."
*
*						       M. D. Shapiro
*
	acappella.choir	= 6 or more people singing in tune
*
	days	= 'first,second,third,fourth,fifth,sixth,'
+		'seventh,eighth,ninth,tenth,eleventh,twelfth,'
	next	= break(',') . which len(1)
*
*	trace('sing','value',,'song')
*	&trace	= 1000
	output('sing',6)
							:(next.day)
*	define('song()')				:(next.day)
song	pause	ident(sing) output('sing',acappella.choir,
+		"(' " pause "',100a1)")	= '   '		:(return)
*
next.day days next =					:f(coda)
	sing	=
	sing	= 'On the ' which ' day	of Christmas,'
	sing	= 'My true love	gave to	me,'		:($which)
twelfth	  sing	= 'Twelve lords	a-leaping,'
eleventh sing	= 'Eleven ladies dancing,'
tenth	sing	= 'Ten pipers piping,'
ninth	sing	= 'Nine	drummers drumming,'
eighth	sing	= 'Eight maids a-milking,'
seventh	sing	= 'Seven swans a-swimming,'
sixth	sing	= 'Six geese a-laying,'
fifth	sing	= 'Five	gooold riiinnngss,'
fourth	sing	= 'Four	colly birds,'
third	sing	= 'Three french	hens,'
second	sing	= 'Two turtledoves,'
first	sing	= and 'a partridge in a	pear tree.'
	and	= ident(and) 'And '			:(next.day)
*
coda
end