(a -> b) -> [a] -> [b] -base -xhtml +html

(<<) :: HTML a => (Html -> b) -> a -> b
html Text.Html