gistfile1.txt

public static Parser<TToken, IEnumerable<TResult>> Sequence<TToken, TResult>(
                IEnumerable<Parser<TToken, TResult>> parsers)
            {
                if (parsers == null)
                    throw new ArgumentNullException("parsers");

                return stream =>
                {
                    try
                    {
                        var current = stream;
                        var results = parsers.Select(p =>
                            {
                                Reply<TToken, TResult> reply;
                                TResult result; ErrorMessage message;
                                switch ((reply = p(current)).TryGetValue(out result, out message))
                                {
                                    case ReplyStatus.Success:
                                        current = reply.Stream;
                                        return result;
                                    default:
                                        throw new YieldBreakException();
                                }
                            });
                        return Reply.Success<TToken, IEnumerable<TResult>>(current, results);
                    }
                    catch (YieldBreakException)
                    {
                        return Reply.Failure<TToken, IEnumerable<TResult>>(stream);
                    }
                };
            }