data:
fruits is text list
fruit is text

procedure:
split "apple banana orange" by " " in fruits
for each fruit in fruits do
    display fruit lf
repeat