TextShow.Control.Applicative.Trans