adorn :: Traversable f => f a -> f (Name, a)
adorn = zipWithTraversable (,) colours
adorn :: Traversable f => f a -> f (Name, a)
adorn = zipWithTraversable (,) colours
adorn = zipWithTraversable (,) colours