( )

|10 @Console &vector $2 &read $5 &type $1 &write $1 &error $1

|100

@on-reset ( -> )
	;on-console .Console/vector DEO2
	[ LIT2r 0101 ] BRK

@on-console ( -> )
	.Console/read DEI
	( | make chex )
	[ LIT "0 ] SUB DUP #0a LTH ?{
		#27 SUB DUP #10 LTH ?{ POP BRK } }
	( | hb/lb )
	INCr ANDkr STHr ?{ #40 SFT BRK }
	ORA #18 DEO
	BRK