     [
         deprecated-style get [
             last-element off
-            "Deprecated" $heading print-element
+            "This word is deprecated" $heading print-element
         ] with-nesting
     ] ($heading) ;
 

: $syntax ( element -- ) "Syntax" $heading $code ;

: $description ( element -- )
    "Word Description" $heading print-element ;

: $class-description ( element -- )
    "Class Description" $heading print-element ;

: $error-description ( element -- )
    "Error Description" $heading print-element ;

: $var-description ( element -- )
    "Variable Description" $heading print-element ;

: $contract ( element -- )
    "Generic Word Contract" $heading print-element ;

: $examples ( element -- )
    "Examples" $heading print-element ;

    ] unless-empty ;

: $value ( object -- )
    "Variable value" $heading
    "Current value in global namespace:" print-element
    check-first dup [ pprint-short ] ($code) ;

