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