REBOL [title: "Quick Manual"]

    print "This will take a minute..."  wait 2
    echo %words.txt what echo off   ; "echo" saves console activity to a file
    echo %help.txt
    foreach line read/lines %words.txt [
        word: first to-block line
        print "___________________________________________________________^/"
        print rejoin ["word:  " uppercase to-string word]  print "" 
        do compose [help (to-word word)]
    ]
    echo off
    x: read %help.txt
    write %help.txt "VID STYLES (GUI WIDGETS):^/^/"
    foreach i extract svv/vid-styles 2 [write/append %help.txt join i newline]
    write/append %help.txt "^/^/LAYOUT WORDS:^/^/" 
    foreach i svv/vid-words [write/append %help.txt join i newline]
    b: copy [] 
    foreach i svv/facet-words [
        if (not function? :i) [append b join to-string i "^/"]
    ]
    write/append %help.txt rejoin [
        "^/^/STYLE FACETS (ATTRIBUTES):^/^/" b "^/^/SPECIAL STYLE FACETS:^/^/"
    ]
    y: copy ""
    foreach i (extract svv/vid-styles 2) [
        z: select svv/vid-styles i
        ; additional facets are held in a "words" block:
        if z/words [
            append y join i ": "
            foreach q z/words [if not (function? :q) [append y join q " "]]
            append y newline
        ]
    ]
    write/append %help.txt rejoin [
        y "^/^/CORE FUNCTIONS:^/^/" at x 4
    ]
    editor %help.txt