description :: CharParser st ClassExpression
description =
  fmap (mkObjectJunction UnionOf) $ sepBy1 conjunction $ keyword orS
description :: CharParser st ClassExpression
description =
  fmap (mkObjectJunction UnionOf) $ sepBy1 conjunction $ keyword orS
description =
  fmap (mkObjectJunction UnionOf) $ sepBy1 conjunction $ keyword orS