Default f-function for consumers, given pops and pushes.

CreateConsumerF.cs

public Func<EvalStack, EvalStack> CreateConsumerF(int pops, int pushes)
{
  Func<EvalStack, EvalStack> pop = stack => stack.Pop();
  Func<EvalStack, EvalStack> push = stack => stack.Push(false);
  Func<EvalStack, EvalStack> result = stack => stack;
  for (int i = 0; i < pops; i++)
  {
    var fresh = result;
    result = stack => pop(fresh(stack));
  }
  for (int i = 0; i < pushes; i++)
  {
    var fresh = result;
    result = stack => push(fresh(stack));
  }
  return result;
}