Support name generation

Now that `MarkupM` is a free monad, we can support things like

``` purescript
view = do
top <- freshName
a ! name top $ mempty
...
a ! anchor top $ text "Back to top"

where
anchor name = href $ "#" <> runName name
```