anchor.diff:  [<EntryPoint>]
   let main argv = 
       let script = read_script argv.[0]
  -    let machine = Machine()
  +    use _in = Console.OpenStandardInput()
  +    use out = Console.OpenStandardOutput()
  +    let machine = Machine(_in, out)
       machine.LoadProgram script
       run machine
       0
  
positive.code:     [<Literal>]
      let Orthography = 13u
  
  type Machine () =
      let registers : uint32 array = [|0u; 0u; 0u; 0u; 0u; 0u; 0u; 0u|]
      let arrays : List<uint32 array> = new List<uint32 array>()
      let mutable pointer = 0u
      let mutable program = [||] // a copy of array 0 for faster access
      let _in = Console.OpenStandardInput()
      let out = Console.OpenStandardOutput()
  
      member m.Registers = registers
      member m.Arrays = arrays
  
negative.code:         machine.Out.WriteByte((byte) machine.Registers.[c])
          true
      | OpCodes.Input ->
          let key = machine.In.ReadByte()
          match key with
          | 0x00 -> machine.Registers.[c] <- 0xffu
  