         [ drop scaffold-authors ]
         [ nip require ]
     } 2cleave ;
+
+SYMBOL: examples-flag
+
+: example ( -- )
+    {
+        "{ $example \"\" \"USING: prettyprint ;\""
+        "           \"\""
+        "           \"\""
+        "}"
+    } [ examples-flag get [ "    " write ] when print ] each ;
+
+: examples ( n -- )
+    t \ examples-flag [
+        "{ $examples " print
+        [ example ] times
+        "}" print
+    ] with-variable ;

        { "obj3" object } { "obj4" object }
        { "quot" quotation } { "quot1" quotation }
        { "quot2" quotation } { "quot3" quotation }
        { "string" string } { "string1" string }
        { "string2" string } { "string3" string }
        { "str" string }

        { "ch" "a character" }
        { "word" word }
        { "array" array }
        { "duration" duration }
        { "path" "a pathname string" }
        { "vocab" "a vocabulary specifier" }
        { "vocab-root" "a vocabulary root string" }
        { "c-ptr" c-ptr }
        { "seq" sequence } { "seq1" sequence } { "seq2" sequence }
        { "seq3" sequence } { "seq4" sequence }
        { "seq1'" sequence } { "seq2'" sequence }
        { "newseq" sequence } 
        { "assoc" assoc } { "assoc1" assoc } { "assoc2" assoc }
        { "assoc3" assoc } { "newassoc" assoc }
        { "alist" "an array of key/value pairs" }
        { "keys" sequence } { "values" sequence }
        { "class" class }
    } at* ;

: add-using ( object -- )
