diff --git a/Algorithms/KDTree/KDTree.hs b/Algorithms/KDTree/KDTree.hs
index b8483a1..ca4620e 100644
--- a/Algorithms/KDTree/KDTree.hs
+++ b/Algorithms/KDTree/KDTree.hs
@@ -168,3 +168,12 @@ kdTreeToRoseTree (KTNode ln val _ rn) =
   Node (show . unp2 $ val) [kdTreeToRoseTree ln, kdTreeToRoseTree rn]
 
 
+goLeft :: KDTree a -> Maybe (KDTree a)
+goLeft (KTNode ln _ _ _) = Just ln
+goLeft _                 = Nothing
+
+
+goRight :: KDTree a -> Maybe (KDTree a)
+goRight (KTNode _ _ _ rn) = Just rn
+goRight _                 = Nothing
+