module XHTML where class XHTML a where to_xhtml :: a -> String