ref: 6a5baa7bb25ac3363d687931898f6a5cfc1d7a6b
dir: /test/sarray.fr/
\ 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