anchor.diff:  
   open System
   open System.Threading.Tasks
  +open System.Collections.Concurrent
   
   open Android.App
   open Android.Content
  
positive.code:     let mutable lastTouchX = 0.f
      let mutable lastTouchY = 0.f
  
      let inputEvents = ResizeArray ()
  
      do
          surfaceView.SetEGLContextClientVersion (3)
  
negative.code:                 match args.Event.Action with
  
                  | MotionEventActions.Down ->
                      inputEvents.Enqueue (KeyPressed ('w'))
  
                  | MotionEventActions.Up ->
                      inputEvents.Enqueue (KeyReleased ('w'))
  
                  | _ -> ()
  
  