; ** p9.stax ************************************************
; STAX program to accept the language { w | w such that #0s mod 2 = 0 }
; 
; John Haskins, Jr.
; l'Universite de Virginie (University of Virginia)
; jwh6q@virginia.edu
; -----------------------------------------------------------

	.input_alphabet		"01"
	.stack_alphabet		""


q0:
	deny
	$, -, nop, qdone
	'0', -, nop, q1
	'1', -, nop, q0
q1:
	deny
	'0', -, nop, q0
	'1', -, nop, q1

qdone:
	accept
	halt