diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,27 @@
+Copyright 2009 Tony Morris
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions
+are met:
+1. Redistributions of source code must retain the above copyright
+   notice, this list of conditions and the following disclaimer.
+2. Redistributions in binary form must reproduce the above copyright
+   notice, this list of conditions and the following disclaimer in the
+   documentation and/or other materials provided with the distribution.
+3. Neither the name of the author nor the names of his contributors
+   may be used to endorse or promote products derived from this software
+   without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+SUCH DAMAGE.
diff --git a/Setup.lhs b/Setup.lhs
new file mode 100644
--- /dev/null
+++ b/Setup.lhs
@@ -0,0 +1,3 @@
+#!/usr/bin/env runhaskell
+> import Distribution.Simple
+> main = defaultMain
diff --git a/Text/XML/HXT/Extras.hs b/Text/XML/HXT/Extras.hs
new file mode 100644
--- /dev/null
+++ b/Text/XML/HXT/Extras.hs
@@ -0,0 +1,15 @@
+-- | Extra library functions for HXT.
+module Text.XML.HXT.Extras(
+                     showPickled,
+                     textAttr
+                   ) where
+
+import Text.XML.HXT.Arrow
+
+-- | Pickles a value then writes the document to a string.
+showPickled :: (XmlPickler a) => Attributes -> a -> String
+showPickled a = concat . (pickleDoc xpickle >>> runLA (writeDocumentToString a))
+
+-- | A text attribute
+textAttr :: String -> PU String
+textAttr = flip xpAttr xpText
diff --git a/hxt-extras.cabal b/hxt-extras.cabal
new file mode 100644
--- /dev/null
+++ b/hxt-extras.cabal
@@ -0,0 +1,25 @@
+Name:                hxt-extras
+Version:             0.1
+License:             BSD3
+License-File:        LICENSE
+Synopsis:            Extra functions for HXT
+Description:         Extra library functionality for HXT
+Homepage:            http://code.google.com/p/hxt-extras/
+Category:            XML
+Author:              Tony Morris
+Maintainer:          code@tmorris.net
+Copyright:           2009 Tony Morris
+build-type:          Simple
+cabal-version:       >= 1.2
+
+Flag small_base
+  Description:     Choose the new, split-up base package.
+
+Library
+  if flag(small_base)
+    Build-Depends: base < 4 && >= 3, hxt
+  else
+    Build-Depends: base < 3, hxt
+
+  GHC-Options:     -Wall
+  Exposed-Modules: Text.XML.HXT.Extras