renderLit (LitList l)  = brackets $ hcat $ intersperse "," $ map renderExpr l
renderLit (LitList l)  = brackets $ hcat $ intersperse "," $ map renderExpr l
renderLit (LitList l)  = brackets $ hcat $ intersperse "," $ map renderExpr l