--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Main.hs	Tue Mar 26 18:28:54 2013 +0900
@@ -0,0 +1,16 @@
+module Main where
+import Jungle
+import qualified Data.ByteString.Char8 as C
+
+
+x = createTree createJungle "new_tree"
+tree = getTreeByName x "new_tree"
+new_tree = addNewChildAt tree [] 0 Empty
+new_tree2 = putAttribute tree [] "key" (C.pack "value")
+
+
+main = do print $ createJungle
+          print x
+          print $ getTreeByName x "new_tree"
+          print new_tree
+          print new_tree2