diff --git a/Art/ContextFree.hs b/Art/ContextFree.hs
--- a/Art/ContextFree.hs
+++ b/Art/ContextFree.hs
@@ -19,5 +19,4 @@
 
 import Art.Grammar
 import Art.Interpreter
-import Art.Util
 import Art.Geometry
diff --git a/Art/Geometry.hs b/Art/Geometry.hs
--- a/Art/Geometry.hs
+++ b/Art/Geometry.hs
@@ -1,11 +1,13 @@
 module Art.Geometry where
 
 import Control.Arrow
-import Data.Tuple.Extra
 import Data.Biapplicative
 
 -- | A vector in 2d euclidian space.
 type Vec = (Float, Float)
+
+both :: (a -> b) -> (a, a) -> (b, b)
+both f (a, b) = (f a, f b)
 
 addVecs :: Vec -> Vec -> Vec
 addVecs = biliftA2 (+) (+)
diff --git a/Art/Interpreter.hs b/Art/Interpreter.hs
--- a/Art/Interpreter.hs
+++ b/Art/Interpreter.hs
@@ -7,7 +7,6 @@
 import TextShow
 import Data.List
 import Data.List.NonEmpty hiding (reverse)
-import Data.Tuple.Extra
 import Data.Functor
 import Data.Function
 import Data.Maybe
@@ -108,6 +107,9 @@
       True -> interpretSymbol state sym
       False -> pure emptyRes
 
+second :: (a -> b) -> (c, a) -> (c, b)
+second f (a, b) = (a, f b)
+
 interpretSymbol :: State -> Symbol -> IO Res
 interpretSymbol state@State{ position = pos, scale = scale }
   = \case
@@ -140,4 +142,4 @@
   finalise <$> interpretSymbol emptyState sym
     where
       finalise :: Res -> S.Svg
-      finalise (Just bounds, svg) = toSVG (boundsToViewBox bounds) svg
+      finalise (bounds, svg) = toSVG (boundsToViewBox (fromMaybe (0, 0, 0, 0) bounds)) svg
diff --git a/Art/Util.hs b/Art/Util.hs
--- a/Art/Util.hs
+++ b/Art/Util.hs
@@ -2,7 +2,6 @@
 
 module Art.Util where
 
-import Data.Tuple.Extra
 import qualified Data.Text as T
 import TextShow
 import Art.Geometry
diff --git a/Tests.hs b/Tests.hs
--- a/Tests.hs
+++ b/Tests.hs
@@ -3,7 +3,6 @@
 import Data.List
 import Data.List.NonEmpty
 import Test.HUnit hiding (path)
-import Data.Tuple.Extra
 import Text.Blaze
 import Text.Blaze.Svg11 ((!))
 import qualified Text.Blaze.Svg11 as S
diff --git a/context-free-art.cabal b/context-free-art.cabal
--- a/context-free-art.cabal
+++ b/context-free-art.cabal
@@ -4,12 +4,11 @@
 -- http://haskell.org/cabal/users-guide/
 
 name:                context-free-art
-version:             0.2.0.0
+version:             0.2.0.1
 synopsis:            Generate art from context-free grammars
 description:
     .
     Create art via context free grammar production rules.
-    Includes an SVG backend.
     .
     == Context free grammar primer
     .
@@ -61,7 +60,6 @@
                        , blaze-svg ^>= 0.3.6
                        , random ^>= 1.1
                        , blaze-markup
-                       , extra ^>= 1.6
                        , bifunctors ^>= 5.5
                        , text-show ^>= 3.8
                        , text ^>= 1.2
@@ -78,7 +76,6 @@
                        , blaze-svg ^>= 0.3.6
                        , random ^>= 1.1
                        , blaze-markup
-                       , extra ^>= 1.6
                        , bifunctors ^>= 5.5
                        , text-show ^>= 3.8
                        , text ^>= 1.2