-- unbalanced: Node1c 10 (Leaf1c) (Node1c 5 (Node1c 8 Leaf1c Leaf1c) Leaf1c)
-- balanced: Node1c 10 (Node1c 3 Leaf1c Leaf1c) (Node1c 5 (Node1c 8 Leaf1c Leaf1c) Leaf1c)

makeList :: Tree1c -> [Number]
makeList (Node1c i t1 t2) =  (makeList t1) ++ [i] ++ (makeList t2)
makeList :: Tree1c -> [Number]
makeList (Node1c i t1 t2) =  (makeList t1) ++ [i] ++ (makeList t2)
makeList (Node1c i t1 t2) =  (makeList t1) ++ [i] ++ (makeList t2)