m = p : a
i1 : (ZZParser : charAnalyzer) "123456789" o1 = 123456789
i2 : (constParser "abc" : charAnalyzer) "abc" o2 = abc