-- Making a list of trees from a tree
makeList :: Tree -> [Tree]
makeList t@(Root board branch) = t : (concat $ map (makeList) branch)
makeList :: Tree -> [Tree]
makeList t@(Root board branch) = t : (concat $ map (makeList) branch)
makeList t@(Root board branch) = t : (concat $ map (makeList) branch)