Utility words to assist in defining new elements:
simple-element

($span) ( quot -- )

($block) ( quot -- )