parenth :: Doc -> Doc
parenth ss = doc (showChar '(') . ss . doc (showChar ')')
parenth :: Doc -> Doc
parenth ss = doc (showChar '(') . ss . doc (showChar ')')
parenth ss = doc (showChar '(') . ss . doc (showChar ')')