I was surprised that para needs Unfoldable and ano needs Foldable. It's possible to implement them without it, although much less nicely:
para :: (Base t (t, a) -> a) -> t -> a
para t = p where p x = t . fmap (((,) x) . p) $ project x
apo :: (a -> Base t (Either t a)) -> a -> t
apo g = a where a = embed . (fmap (either id a)) . g
AFAICS this is done?