         ] bi
     ] unless-empty ;
 
+: words. ( vocab -- )
+    last-element off
+    vocab-name describe-words ;
+
 : describe-metadata ( vocab -- )
     [
         [ vocab-tags [ "Tags:" swap \ $tags prefix 2array , ] unless-empty ]


: $vocabs ( assoc -- )
    [
        [
            drop
        ] [
            swap root-heading.
            standard-table-style [
                vocab-headings. [ vocab. ] each
            ] ($grid)
        ] if-empty
    ] assoc-each ;


        [ <$link> 1array ] map $table
    ] unless-empty ;

: describe-words ( vocab -- )
    words [
        "Words" $heading

