September Morn Update

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

@@ -1,15 +1,23 @@
-( Strings: this will display the ASCII code for each character in a string )
-"This is a message" [ @ putn space ] ^types'STRING each@
+# Strings
 
-( Array: display each element )
-needs array'
-[ 1 2 3 ] ^array'fromQuote  [ @ putn space ] ^types'ARRAY each@
+This will display the ASCII code for each character in a string
 
-( Linked List: using the dictionary as an example, display each name )
-last [ d->name puts space ] ^types'LIST each@
+~~~
+'This_is_a_message [ n:put sp ] s:for-each
+~~~
 
-( Generic Buffers; display each value in a buffer )
-create foo
-  1 , 3 , 5 ,
+# Array
 
-foo 3 [ @ putn space ] ^types'BUFFER each@
+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
+~~~