parens p = between o c p
  where o = trimSpaces $ char '('
        c = trimSpaces $ char ')'
parens p = between o c p
  where o = trimSpaces $ char '('
        c = trimSpaces $ char ')'
parens p = between o c p
  where o = trimSpaces $ char '('
        c = trimSpaces $ char ')'