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

    first {
        [ describe-help ]
        [ describe-metadata ]
        [ words. ]
        [ describe-files ]
        [ describe-children ]
    } cleave ;

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

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

