\ test CASE
anew test-case
: TCASE  ( N -- )
	CASE
	0 OF ." is zero" ENDOF
	1 OF
		2 choose
		CASE
		0 OF ." chose zero" ENDOF
		1 OF ." chose one" ENDOF
		[ .s cr ." of-depth = " of-depth @ . cr ]
		ENDCASE
	ENDOF
	[ .s cr ." of-depth = " of-depth @ . cr ]
	ENDCASE
;
