# HTML Generation
This is a little experiment in combinator-driven HTML generation.
~~~
:a:href (ss-) ' s:put s:put ' s:put ;
:p (q-) ' s:put call '
s:put nl ;
:strong (q-) ' s:put call ' s:put nl ;
:em (q-) ' s:put call ' s:put nl ;
:h1 (s-) ' s:put s:put '
s:put nl ;
:div (q-) ' s:put call '
s:put nl ;
:body (q-) ' s:put call ' s:put nl ;
:sigil:" s:keep &s:put compile:call ; immediate
~~~
Test case:
```
[ 'Hello h1
[ 'This_is_a_test_of_HTML_generation._Please_
'follow_the_link 'page2.html a:href '. ] p
[ 'This_is_a_second_paragraph ] p
] body
```