-- | Runs the PrintS state with 'initPrintState'.
runPrint :: PrintS a -> ShowS
runPrint = flip evalState initPrintState . execPrintT
runPrint :: PrintS a -> ShowS
runPrint = flip evalState initPrintState . execPrintT
runPrint = flip evalState initPrintState . execPrintT