diff --git a/client/Main.hs b/client/Main.hs
index cfb7e11..5c279ce 100644
--- a/client/Main.hs
+++ b/client/Main.hs
@@ -53,10 +53,10 @@ newClientState node = ClientState
   }
 
 clientDraw :: ClientState -> [Widget ResourceName]
-clientDraw cs = [joinBorders $ withBorderStyle unicode $ debug <=> tree]
+clientDraw cs = [joinBorders $ withBorderStyle unicode $ tree <+> debug]
   where
     tree = borderWithLabel (txt "Tree") $ renderTree boxDrawingBranching (csEditor cs) (csTree cs)
-    debug = borderWithLabel (txt "Debug") $ hLimit 80 $ txtWrap $ T.pack $ show $ csTree cs
+    debug = borderWithLabel (txt "Debug") $ txtWrap $ T.pack $ show $ csTree cs
 
 isQuitEvent :: BrickEvent a b -> Bool
 isQuitEvent (VtyEvent (Vty.EvKey (Vty.KChar 'q') [])) = True
diff --git a/src/Forest/Node.hs b/src/Forest/Node.hs
index ad5af71..9c56de1 100644
--- a/src/Forest/Node.hs
+++ b/src/Forest/Node.hs
@@ -78,7 +78,7 @@ mapChildren f node = map (uncurry f) $ Map.toAscList $ nodeChildren node
 
 newtype Path = Path
   { pathElements :: [NodeId]
-  } deriving (Show, Eq, Ord, ToJSON, FromJSON)
+  } deriving (Show, Eq, Ord, Semigroup, Monoid, ToJSON, FromJSON)
 
 localPath :: Path
 localPath = Path []
@@ -100,7 +100,42 @@ narrowSet x s = Set.fromList [Path ys | Path (y:ys) <- Set.toList s, x == y]
 {- For testing -}
 
 exampleNode :: Node
-exampleNode = Node "Tool box" False False True False $ Map.fromList
-  [ ("hammer", Node "Hammer" False True False True Map.empty)
-  , ("nail", Node "Nail" False True False False Map.empty)
-  ]
+exampleNode =
+  Node "forest" False False True True (Map.fromList
+    [("0", Node "CHANGELOG.md" True True False False (Map.fromList []))
+    , ("1", Node "LICENSE" False False False True (Map.fromList []))
+    , ("2", Node "README.md" False False False True (Map.fromList []))
+    , ("3", Node "Setup.hs" True True False False (Map.fromList []))
+    , ("4", Node "client" True False True False (Map.fromList
+      [("0", Node "Main.hs" False True True False (Map.fromList []))
+      ]))
+    , ("5", Node "forest.cabal" True True True False (Map.fromList []))
+    , ("6", Node "gen_file_node.py" True False False True (Map.fromList []))
+    , ("7", Node "package.yaml" True False True False (Map.fromList []))
+    , ("8", Node "server" True True True False (Map.fromList
+      [("0", Node "Main.hs" False False True True (Map.fromList []))
+      ]))
+    , ("9", Node "src" False False False True (Map.fromList
+      [("0", Node "Forest" False True True False (Map.fromList
+        [("0", Node "Api.hs" True True True False (Map.fromList []))
+        , ("1", Node "Broadcast.hs" False False False False (Map.fromList []))
+        , ("2", Node "Client" True True True False (Map.fromList
+          [("0", Node "Node.hs" True True True True (Map.fromList []))
+          , ("1", Node "NodeEditor.hs" True False False True (Map.fromList []))
+          , ("2", Node "ResourceName.hs" True False False False (Map.fromList []))
+          , ("3", Node "Tree.hs" False True True True (Map.fromList []))
+          , ("4", Node "WidgetTree.hs" True False True False (Map.fromList []))
+          ]))
+        , ("3", Node "Node.hs" True False False False (Map.fromList []))
+        , ("4", Node "Server.hs" False False False False (Map.fromList []))
+        , ("5", Node "TreeModule" False True False True (Map.fromList
+          [("0", Node "ConstModule.hs" True False False False (Map.fromList []))
+          ]))
+        , ("6", Node "TreeModule.hs" True True False False (Map.fromList []))
+        , ("7", Node "Util.hs" False True False True (Map.fromList []))
+        ]))
+      , ("1", Node "Forest.hs" False True False False (Map.fromList []))
+      ]))
+    , ("10", Node "stack.yaml" True False False True (Map.fromList []))
+    , ("11", Node "stack.yaml.lock" False False False True (Map.fromList []))
+    ])