array
a
=
(
"x"
,
"y"
,
"z"
)
array
b
a
.
begin
()
while
a
[]
<>
nil
b
.
push
(
a
[].
toText
()
+
"ok"
)
a
.
inc
()
/
while
b
.
display
()