consume _ matched = error $ "Expecting '" ++ (show matched) ++ "' but got EOF"
consume _ matched = error $ "Expecting '" ++ (show matched) ++ "' but got EOF"
consume _ matched = error $ "Expecting '" ++ (show matched) ++ "' but got EOF"