treeToBalancedTree' :: [Number] -> Tree1c
treeToBalancedTree' (x:xs) = Node1c x (treeToBalancedTree' (take (1 + ((length xs) `quot` 2)) xs)) (treeToBalancedTree' (drop (1 + ((length xs) `quot` 2)) xs))
treeToBalancedTree' :: [Number] -> Tree1c
treeToBalancedTree' (x:xs) = Node1c x (treeToBalancedTree' (take (1 + ((length xs) `quot` 2)) xs)) (treeToBalancedTree' (drop (1 + ((length xs) `quot` 2)) xs))
treeToBalancedTree' (x:xs) = Node1c x (treeToBalancedTree' (take (1 + ((length xs) `quot` 2)) xs)) (treeToBalancedTree' (drop (1 + ((length xs) `quot` 2)) xs))