lineParens :: Doc -> Doc
lineParens p =  char '(' $$
                p <> char '\n' <>
                char ')'
lineParens :: Doc -> Doc
lineParens p =  char '(' $$
                p <> char '\n' <>
                char ')'
lineParens p =  char '(' $$
                p <> char '\n' <>
                char ')'