%\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