anchor.diff:      let getPrintLine = simpleLineHelper "print" Print
       let getAddLine = simpleLineHelper "add" Add
       let getSubtractLine = simpleLineHelper "sub" Subtract
  -    let getMultiplyLine = simpleLineHelper "mul" Multipy
  +    let getMultiplyLine = simpleLineHelper "mul" Multiply
       let getDivisionLine = simpleLineHelper "div" Divide
       let getPopLine = simpleLineHelper "pop" Pop
   
  
positive.code:         | Add
          | Subtract
          | Divide
          | Multipy
          | Print
          | Ignore
  
  
negative.code:                 | _ ->
                      printfn "%s something went horribly wrong with the stack while trying to divide" dbgIdentifier
                      currentState
              | Multiply ->
                  match currentState with
                  | x::y::rst ->
                      printfn "%s multiplying %i and %i" dbgIdentifier x y
                      (y * x) :: rst
                  | _ ->
                      printfn "%s something went horribly wrong with the stack while trying to Multiply" dbgIdentifier
                      currentState
              | Print ->
                  printfn "%s printing the current head" dbgIdentifier
  