diff --git a/example/example.hs b/example/example.hs
deleted file mode 100644
index ef35ca8..0000000
--- a/example/example.hs
+++ /dev/null
@@ -1,47 +0,0 @@
-{-# LANGUAGE OverloadedStrings, MultiParamTypeClasses, FlexibleInstances, UndecidableInstances #-}
-import Prelude hiding (putStr)
-import Text.RSTemplate
-import Data.ByteString.Char8 (ByteString,putStr)
-
--- Sometime string literals will present ambiguity when
--- OverloadedStrings is used.  The below function is a 
--- somewhat shorter way to hint that we want a ByteString
-bs :: ByteString -> ByteString
-bs = id
-
--- Create some example types that represent pets 
-data Species = Bird | Cat | Dog | Fish 
-               deriving (Show)
-
-data Pet = Pet { getPetName :: String
-               , getPetAge  :: Float
-               , getPetSpecies :: Species }
-           deriving (Show)
-
-mkPet a b c = Pet a b c
-
--- Make Pet an instance of ContextLookup so that we can use it in out templates
-instance (Monad m) => ContextLookup m Pet where
-    cxLookup "name"    = return . justcx . getPetName
-    cxLookup "age"     = return . justcx . show . getPetAge
-    cxLookup "species" = return . justcx . show . getPetSpecies
-    cxLookup _         = return . const Nothing
-
--- Create a context using the ContextWriter monad
-cx :: (Monad m) => ContextWriter m ()
-cx = do 
-  set "author" . cxw $ do set "fname" (bs "James")
-                          set "lname" (bs "Sanders")
-  set "pets" [mkPet "Samson"  1   Dog
-             ,mkPet "Mango"   1   Bird
-             ,mkPet "Simon"   1.5 Cat
-             ,mkPet "Spikey"  1.5 Fish]
-
-runRSTemplate tmp cx = do
-  t   <- parseFile tmp
-  let cxc = cxw cx
-  runEval t cxc
-
--- Run our template using the cx function for its context
-main = runRSTemplate "../example/example.tpl" cx >>= putStr
-
diff --git a/example/example.tpl b/example/example.tpl
deleted file mode 100644
index 9700f85..0000000
--- a/example/example.tpl
+++ /dev/null
@@ -1,13 +0,0 @@
-This is a test!
-{+ "header one.html" +}
-Hello world
-{@|p <- pets| 
-     {| x = "one" |}
-     {?|p| 
-     This is a test 
-     ?}
-@}
-test { Test }
-That was my test
-{+ footer.html +}
-