( . _ )

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

|100

@on-reset ( -> )
	;on-console .Console/vector DEO2
	BRK

@on-console ( -> )
	[ LITr -Console/read ] DEIr #f8
	&>l ( -- )
		[ LIT2 "._ ] STHkr #01 AND ?{ SWP }
		POP #18 DEO
		[ LITr 01 ] SFTr INC DUP ?&>l
	POP POPr BRK