interface ComonadStore : Type -> (Type -> Type) -> Typepos : w a -> speek : s -> w a -> apeeks : (s -> s) -> w a -> aseek : s -> w a -> w aseeks : (s -> s) -> w a -> w aexperiment : Functor f => (s -> f s) -> w a -> f aComonadStore s w => ComonadStore s (EnvT e w)Comonad w => ComonadStore s (StoreT s w)(ComonadStore s w, Monoid m) => ComonadStore s (TracedT m w)pos : ComonadStore s w => w a -> speek : ComonadStore s w => s -> w a -> apeeks : ComonadStore s w => (s -> s) -> w a -> aseek : ComonadStore s w => s -> w a -> w aseeks : ComonadStore s w => (s -> s) -> w a -> w aexperiment : ComonadStore s w => Functor f => (s -> f s) -> w a -> f alowerPos : (ComonadTrans t, ComonadStore s w) => t w a -> slowerPeek : (ComonadTrans t, ComonadStore s w) => s -> t w a -> alowerExperiment : (ComonadTrans t, (ComonadStore s w, Functor f)) => (s -> f s) -> t w a -> f a