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