vvalue
btfoldMap :: (TraversableB (b f), TraversableT b, Monoid m)=> forall (a :: k2). f a -> m-> forall (a :: k3). g a -> m-> b f g-> m