writeTransient :: String -> FormatM ()
writeTransient s = liftF (WriteTransient s ())
writeTransient :: String -> FormatM ()
writeTransient s = liftF (WriteTransient s ())
writeTransient s = liftF (WriteTransient s ())