-- ==========================================================--
--
pgOneOrMore :: Parser a -> Parser [a]

pgOneOrMore p
   = pgThen2 (:) p (pgZeroOrMore p)
pgOneOrMore :: Parser a -> Parser [a]
pgOneOrMore p
   = pgThen2 (:) p (pgZeroOrMore p)
pgOneOrMore p
   = pgThen2 (:) p (pgZeroOrMore p)