# make a counter 
: counter	# ( init.state update.xt - )
	create , ,	# save
does>
	>r
	r follow @ dup	# get state/output value
	r @ execute	# increment
	r> follow ! ;	# save state

: counter! xt>body follow ! ;	# set state

# 0 :noname 1 + ; counter my-counter