I'm fairly sure `FreeAp w` is a `Comonad` whenever `w` is. One way to see this is to build it out of `Day`, `Identity` and `Coproduct`: https://gist.github.com/paf31/fbc28d9f89f511cc65ab57731f31b278