i1 : peek deadParser "a" o1 = null
i2 : peek deadParser null o2 = null
-- Parsing.m2:53 deadParser = Parser (c -> null)