instance (Functor f, MonadFree f m) => MonadFree f (ContT r m)