main:
	declare result
	emit "lt A A: "
	calc result lt "A" "A"
	emit result
	emit eol
	emit "lt A B: "
	calc result lt "A" "B"
	emit result
	emit eol
	emit "lt B A: "
	calc result lt "B" "A"
	emit result
	emit eol
	emit "lt AA AA: "
	calc result lt "AA" "AA"
	emit result
	emit eol
	emit "lt AA AB: "
	calc result lt "AA" "AB"
	emit result
	emit eol
	emit "lt AB AA: "
	calc result lt "AB" "AA"
	emit result
	emit eol
/