Local i,strs
Define strs = {"Lorem","ipsum","dolor"}
For i, 1, dim(strs)
  Disp strs[i]
EndFor