foldr1 (+++) -> concatHtml