trying out to make a (Tree a) generator
paths :: Tree a -> [[(Color, a)]]