module Main where

import Xml2Haskell
import DTD_kurs
import DTD_anfrag



main = do kurs <- readXml "kurs1.xml" :: IO Kurs
	  let Kurs ka (Titel t) _ _ _ _ _ = kurs
	  putStrLn ("Kurs gelesen: "++ t++ " (VAK" ++ kursKey ka++")")
	  putStrLn ("\nHier kommt noch etwas XML: ")
          writeXml "-" 
	     (AnfragAusdruck 
	        (Ausdruck [Und [Elemt (Begriff "Veranstalter")
		                      (Kriterium "Hui Shi"),
				Elemt (Begriff "Zeit")
                                      (Kriterium "Di")]]))