-- | Shows the argument.
printShows :: (MonadWriter (Endo String) m, Show a) => a -> m ()
printShows = tell' . shows
printShows :: (MonadWriter (Endo String) m, Show a) => a -> m ()
printShows = tell' . shows
printShows = tell' . shows