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