--------------------------------------------------------------------------------
--                                                                            --
--  unparsing utilities                                                       --
--                                                                            --
--------------------------------------------------------------------------------

uLit :: String -> IO ()
uLit = put

uLow :: String -> IO ()
uLow = put

uInt :: Int -> IO ()
uInt = put

uList :: [IO ()] -> IO ()
uList ms = do { uLit "[" ; doAllSepWith (uLit ",") ms ; uLit "]" }

--------------------------------------------------------------------------------
