public void PreStackObjectAccess(BaseInterpreterStack stack, int objectsRequested)
 {
     if (stack.Size < objectsRequested)
         Enumerable.Repeat(new CanonicalNumber(), objectsRequested - stack.Size).ToList().ForEach(obj => stack.Push(obj));
 }
 internal override void Execute(InterpreterState state, SourceCode code, BaseInterpreterStack stack)
 {
     var obj = stack.Pop();
     stack.Pop();
     stack.Push(obj);
 }
 internal override void Execute(InterpreterState state, SourceCode code, BaseInterpreterStack stack)
 {
     var obj = stack.Pop<WARPObject>();
     PropertyBasedExecutionEnvironment env = Environment(state);
     if (!env.HasScratchPadEntry(Constants.KeyWords.Comparison)) {
         stack.Push(obj);
         PropertyBasedExecutionEnvironment.ScratchPad[Constants.KeyWords.Comparison] = String.Empty;
     }
     else {
         var lhs = stack.Pop<WARPObject>();
         PropertyBasedExecutionEnvironment.ScratchPad.Remove(Constants.KeyWords.Comparison);
         var bothNumeric = lhs.IsNumeric && obj.IsNumeric;
         Func<int> cmp = () => {
             var f = lhs.AsNumeric(); var s = obj.AsNumeric();
             return (f < s ? -1 : (f > s ? 1 : 0));
         };
         stack.Push(new WARPObject(bothNumeric ? cmp() : string.Compare(lhs.AsString(), obj.AsString())));
     }
 }
 internal override void Execute(InterpreterState state, SourceCode code, BaseInterpreterStack stack)
 {
     var style = stack.Pop<WARPObject>().AsString();
     ExecutionSupport.Assert(Options.Contains(style), string.Concat("Invalid argument for ',' - ", style));
     stack.Push(style == "l" ? new WARPObject(InteractionWrapper.ReadString("0").Result) : new WARPObject(Convert.ToChar(InteractionWrapper.ReadCharacter().Result)));
 }