main:
	declare char
	declare ish
	calc char peek
	calc ish eq char "H"
	if ish
		emit "Success"
	/
/