RosettaCodeData/Task/Loops-Foreach/Retro/loops-foreach.retro

# Strings

This will display the ASCII code for each character in a string

~~~
'This_is_a_message [ n:put sp ] s:for-each
~~~

# Array

Display each element

~~~
{ #1 #2 #3 }  [ n:put sp ] a:for-each
~~~

# Linked List

Using the dictionary as an example, display each name

~~~
&Dictionary [ d:name s:put sp ] d:for-each
~~~