YS
Size: a a a
YS
YS
Oℕ
YS
YS
Oℕ
YS
YS
Oℕ
YS
YS
YS
Oℕ
YS
YS
YS
YS
Oℕ
data Foo :: Type -> Type where ...
fooState :: MonadState m (Map Int Int) => Foo ~> m
instance MonadState My (Map Int Int)
fold :: Monad m =>(f ~> m ) -> Free f ~> m
Free Foo
в My
YS
Oℕ