main:
	declare char
	declare ish
	declare iso
	declare notish
	declare notiso
	skip
	calc char peek
	calc ish eq char "e"
	calc notish not ish
	if notish
		return
	/
	skip
	skip
	skip
	calc char peek
	calc iso eq char "o"
	calc notiso not iso
	if notish
		return
	/
	emit "Success"
/