Initial data commit

Task/XML-Output/Haskell/xml-output.hs

@@ -0,0 +1,13 @@
+import Text.XML.Light
+
+characterRemarks :: [String] -> [String] -> String
+characterRemarks names remarks = showElement $ Element
+    (unqual "CharacterRemarks")
+    []
+    (zipWith character names remarks)
+    Nothing
+  where character name remark = Elem $ Element
+            (unqual "Character")
+            [Attr (unqual "name") name]
+            [Text $ CData CDataText remark Nothing]
+            Nothing