anchor.diff:              Emit.addition 0 1 2
               Emit.addition 3 4 5
               Emit.addition 5 6 7
  +            Emit.halt
           |]
           Assert.That(machine.R0, Is.EqualTo(1u))
           Assert.That(machine.R1, Is.EqualTo(0u))
  
positive.code: 
      [<Test>]
      let empty_script () =
          (new_machine()).Run([||])
      
      [<Test>]
      let conditional_move () =
  
negative.code:     [<Test>]
      let load_program () =
          let machine = new_machine()
          machine.Arrays.Add([|
              Emit.orthography 0 42u
              Emit.halt
          |])
          machine.R0 <- 0u
          machine.R1 <- 1u
          machine.Run [|
              Emit.load_program 1 0
              Emit.halt
          |]
          Assert.That(machine.R0, Is.EqualTo(42u))
  
  