makeList t@(Node board _ _ branch) = t : (concat $ map (makeList) branch)
makeList t@(Node board _ _ branch) = t : (concat $ map (makeList) branch)
makeList t@(Node board _ _ branch) = t : (concat $ map (makeList) branch)