anchor.diff:          | Add
           | Subtract
           | Divide
  -        | Multipy
  +        | Multiply
           | Print
           | Ignore
   
  
positive.code:     let getPrintLine = simpleLineHelper "print" Print
      let getAddLine = simpleLineHelper "add" Add
      let getSubtractLine = simpleLineHelper "sub" Subtract
      let getMultiplyLine = simpleLineHelper "mul" Multipy
      let getDivisionLine = simpleLineHelper "div" Divide
      let getPopLine = simpleLineHelper "pop" Pop
  
  
negative.code:             | Ignore ->
                  printfn "%s i do not know that instruction" dbgIdentifier 
                  currentState
      let fold state instructions =
          let rec _fold stack instructions =
              match instructions with
              | instruction::tail ->
                  //A halt instruction could be dealt with here
                  let newstate = calcNewState stack instruction
                  _fold newstate tail
              | [] ->
                  stack
          _fold state instructions
  
  module Main =
  
  