1\ test file for ficl 2\ string array... 3: $array ( caddr u ... caddr u n -- ) 4 create 0 ?do , , loop 5 does> swap 2* cells + 2@ type 6; 7 8: s 9 s" string 3" 10 s" string 2" 11 s" string 1" 12 s" string 0" 13 4 14; 15 16s $array s 17