+module LWN.Article
+where
+
+import XHTML
+
+data Article = Article { headline :: String,
+ byline :: String,
+ body_html :: String }
+
+instance XHTML Article where
+ to_xhtml (Article hl bl b) =
+ "<h1>" ++ hl ++ "</h1>\n\n" ++
+ "<h2>" ++ bl ++ "</h2>\n\n" ++
+ b