\ test file for ficl
\ string array...
: $array ( caddr u ... caddr u n -- )
create 0 ?do , , loop
does> swap 2* cells + 2@ type
;
: s
s" string 3"
s" string 2"
s" string 1"
s" string 0"
4
;
s $array s