diff --git a/Setup.hs b/Setup.hs
--- a/Setup.hs
+++ b/Setup.hs
@@ -38,7 +38,7 @@
   then return [s]
   else do
     putStr $ (extract s)++" "
-    file <- readFile ("data/"++(extract s)++".hs")
+    file <- readFile ("data/"++(extract s)++".hs.txt")
     let replacement = lines $ hscolour CSS defaultColourPrefs False True (extract s) False file
     return (["<!-- Example "++(extract s)++" follows: -->"]
            ++ replacement
diff --git a/astview.cabal b/astview.cabal
--- a/astview.cabal
+++ b/astview.cabal
@@ -1,5 +1,5 @@
 Name:            astview
-Version:         0.1.2
+Version:         0.1.3
 License:         BSD4
 License-File:    LICENSE
 Author:          
@@ -28,12 +28,13 @@
                  data/HaskellExtParser.hs
                  data/astview.html
                  data/astview-tmpl.html
-                 data/EX1.hs
-                 data/EX2.hs
-                 data/EX3.hs
-                 data/EX4.hs
                  data/style.css
                  data/LICENSE.unwrapped
+                 data/EX1.hs.txt
+                 data/EX2.hs.txt
+                 data/EX3.hs.txt
+                 data/EX4.hs.txt
+
 
 Executable         astview
   Hs-Source-Dirs:  src
diff --git a/data/EX1.hs b/data/EX1.hs
deleted file mode 100644
--- a/data/EX1.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-data Parser 
-  = Parser { name :: String
-           , exts :: [String]
-           , tree :: String -> Tree String}
diff --git a/data/EX1.hs.txt b/data/EX1.hs.txt
new file mode 100644
--- /dev/null
+++ b/data/EX1.hs.txt
@@ -0,0 +1,4 @@
+data Parser 
+  = Parser { name :: String
+           , exts :: [String]
+           , tree :: String -> Tree String}
diff --git a/data/EX2.hs b/data/EX2.hs
deleted file mode 100644
--- a/data/EX2.hs
+++ /dev/null
@@ -1,12 +0,0 @@
-haskell :: Parser
-haskell =  Parser "Haskell" [".hs"] buildTreeHaskell
-
-buildTreeHaskell :: String -> Tree String
-buildTreeHaskell s = case parseHaskell s of
-     Right ast -> flat $ data2tree (ast::HsModule)
-     Left ParseError -> Node "ParseError" []
-
-parseHaskell :: (Data a) => String -> Either ParseError a
-parseHaskell s = case parseModule s of
-  ParseOk p -> unsafeCoerce $ Right p
-  _         -> Left ParseError
diff --git a/data/EX2.hs.txt b/data/EX2.hs.txt
new file mode 100644
--- /dev/null
+++ b/data/EX2.hs.txt
@@ -0,0 +1,12 @@
+haskell :: Parser
+haskell =  Parser "Haskell" [".hs"] buildTreeHaskell
+
+buildTreeHaskell :: String -> Tree String
+buildTreeHaskell s = case parseHaskell s of
+     Right ast -> flat $ data2tree (ast::HsModule)
+     Left ParseError -> Node "ParseError" []
+
+parseHaskell :: (Data a) => String -> Either ParseError a
+parseHaskell s = case parseModule s of
+  ParseOk p -> unsafeCoerce $ Right p
+  _         -> Left ParseError
diff --git a/data/EX3.hs b/data/EX3.hs
deleted file mode 100644
--- a/data/EX3.hs
+++ /dev/null
@@ -1,2 +0,0 @@
-parsers :: [Parser]
-parsers = haskell:stdParserData
diff --git a/data/EX3.hs.txt b/data/EX3.hs.txt
new file mode 100644
--- /dev/null
+++ b/data/EX3.hs.txt
@@ -0,0 +1,2 @@
+parsers :: [Parser]
+parsers = haskell:stdParserData
diff --git a/data/EX4.hs b/data/EX4.hs
deleted file mode 100644
--- a/data/EX4.hs
+++ /dev/null
@@ -1,25 +0,0 @@
-user@host:path$ cd ~/.cabal/share/astview-0.2/data
-user@host:~/.cabal/share/astview-0.2/data$ ghci Parsers.hs
-
--- ghci package-messages stripped
-
-*Parsers> :info Parser
-data Parser
-  = Parser {name :: !String,
-            exts :: [String],
-            tree :: String -> Tree String}
-
--- show all registered parsers
-*Parsers> map name parsers                                            
-["Haskell","CSV","Expr","Java","IsoPascal","C","Glade","List"]
-
--- get haskell parser
-*Parsers> let haskell = head parsers                                 
-
--- build a sample tree of strings
-*Parsers> let sample = tree haskell "main = putStrLn \"Hello World\""
-
--- draw the tree
-*Parsers> putStrLn $ Data.Tree.drawTree sample
-
--- lengthy output follows
diff --git a/data/EX4.hs.txt b/data/EX4.hs.txt
new file mode 100644
--- /dev/null
+++ b/data/EX4.hs.txt
@@ -0,0 +1,25 @@
+user@host:path$ cd ~/.cabal/share/astview-0.2/data
+user@host:~/.cabal/share/astview-0.2/data$ ghci Parsers.hs
+
+-- ghci package-messages stripped
+
+*Parsers> :info Parser
+data Parser
+  = Parser {name :: !String,
+            exts :: [String],
+            tree :: String -> Tree String}
+
+-- show all registered parsers
+*Parsers> map name parsers                                            
+["Haskell","CSV","Expr","Java","IsoPascal","C","Glade","List"]
+
+-- get haskell parser
+*Parsers> let haskell = head parsers                                 
+
+-- build a sample tree of strings
+*Parsers> let sample = tree haskell "main = putStrLn \"Hello World\""
+
+-- draw the tree
+*Parsers> putStrLn $ Data.Tree.drawTree sample
+
+-- lengthy output follows