entry := label
	n := const 8
	jmp loop
loop := label
	c := call getchar
	zero := const '0'
	digit := sub c zero
	eq := sub n digit
	brz exit eq
	jmp loop
exit := label
	m := const 'M'
	call putchar m
	m := const 'a'
	call putchar m
	m := const 't'
	call putchar m
	m := const 'c'
	call putchar m
	m := const 'h'
	call putchar m
	ret