anchor.diff:    type Mover = {
       x : float
       y : float
  +  }
  +
  +  type Info = {
  +    playerShip : Mover
  +    bullets : Mover list
     }
   
     [<JavaScript>]
  
positive.code:     let move offset x y playerShip =
        playerShip := nextPosition offset x y
  
      [<JavaScript>]
      let initSocket context =
  
        let socket = WebSocket("ws://192.168.37.131:19860/shooting")
      
        socket.Onopen <- (fun () ->
          init |> Json.Stringify |> socket.Send
        )
      
        socket.Onmessage <- (fun msg ->
          drawBackground context
          msg.Data
          |> (string >> Json.Parse >> As<Mover>) 
          |> draw context
        )
  
        socket
  
    [<JavaScript>]
    let animatedCanvas width height =
  
negative.code:           (arg.X, arg.Y)
            ||> PlayerShip.nextPosition offset
            |> Json.Stringify
            |> socket.Send
          )
        ]
      ]
  