Discussion Section: Examples

 data MyTree = Leaf Int | Node (MyTree) Int (MyTree)

tree1 = Node 
	(Leaf 3) 
		5 
	(Leaf 6) 


tree2 = (Leaf 4)


tree3 = (Node
	
		(Node
		 (Leaf 2)
			3
		 (Leaf 4)
		)
				5
		(Node
		 (Leaf 6)
			8
		 (Leaf 9)
		)
	)
		

preorder (Leaf i) = [i]
preorder (Node left self right) = [self] ++ preorder left ++ preorder right

postorder (Leaf i) = [i]
postorder (Node left self right) = postorder left ++ postorder right ++ [self]

inorder (Leaf i) = [i]
inorder (Node left self right) = inorder left ++ [self] ++ inorder right