%\0 { 00 }
%DBG { [ LIT2 01 -System/debug ] DEO }

|0e @System/debug

|100

;array len-arr DBG

BRK

@len-arr ( {array}* -- length* )
	LDA2k SWP2 INC2 INC2 SUB2 #01 SFT2
	JMP2r

@array ={ =apple =orange }
@apple "apple \0
@orange "orange \0