Family Day update

Task/Documentation/Retro/documentation.retro

@@ -1,15 +1,28 @@
-doc{
-========
-Function: foo
-========
+    # Determine The Average Word Name Length
 
-Stack
-----
-a1 a2 - b
+    To determine the average length of a word name two values
+    are needed. First, the total length of all names in the
+    Dictionary:
 
-Usage
------
-Adds a1 to a2 returning b.
-}doc
+    ~~~
+    #0 [ d:name s:length + ] d:for-each
+    ~~~
 
-: foo ( aa-b ) + ;
+    And then the number of words in the Dictionary:
+
+    ~~~
+    #0 [ drop n:inc ] d:for-each
+    ~~~
+
+    With these, a simple division is all that's left.
+
+    ~~~
+    /
+    ~~~
+
+    Finally, display the results:
+
+
+    ~~~
+    'Average_name_length:_%n\n s:format s:put
+    ~~~