anchor.diff:            (arg.X, arg.Y)
             ||> PlayerShip.nextPosition offset
             |> Json.Stringify
  -          |> playerShipSocket.Send
  +          |> socket.Send
           )
         ]
       ]
  
positive.code:     let context = canvas.GetContext "2d"
      
      // ソケットの準備
      let playerShipSocket = PlayerShip.initSocket context
  
      Div [ Width (string width); Attr.Style "float:left" ] -< [
        Div [ Attr.Style "float:center" ] -< [
  
negative.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 () ->
        PlayerShip.init |> Json.Stringify |> socket.Send
      )
      
      socket.Onmessage <- (fun msg ->
        drawBackground context
        msg.Data
        |> (string >> Json.Parse >> As<Info>) 
        |> (fun info ->
          info.playerShip |> PlayerShip.draw context
          info.bullets |> PlayerBullet.draw context
        )
      )
  
      socket
  
    [<JavaScript>]
    let animatedCanvas width height =
  