Block(JumpLoop(
  Execute(If(
    Get(
      2001
      8
    )
    1
    2
  ))
  Execute(
    Set(
      10000
      1
      Add(
        1
        Multiply(
          Get(
            4000
            0
          )
          32
        )
      )
    )
    Set(
      10000
      2
      Add(
        1
        Multiply(
          Get(
            4000
            1
          )
          32
        )
      )
    )
    Set(
      10000
      3
      Add(
        4
        Multiply(
          Get(
            4000
            0
          )
          32
        )
      )
    )
    Set(
      10000
      0
      Trunc(Divide(
        Get(
          4100
          Get(
            10000
            3
          )
        )
        2
      ))
    )
    Set(
      10000
      1
      Subtract(
        Add(
          Multiply(
            Add(
              Get(
                10000
                0
              )
              0.5
            )
            Get(
              2000
              1
            )
          )
          Multiply(
            Get(
              4100
              Get(
                10000
                1
              )
            )
            0.072
          )
        )
        Divide(
          Subtract(
            Get(
              1000
              1
            )
            Negate(Get(
              1000
              1
            ))
          )
          2
        )
      )
    )
    Set(
      10000
      2
      Subtract(
        Add(
          Multiply(
            Add(
              Get(
                10000
                0
              )
              0.5
            )
            Get(
              2000
              1
            )
          )
          Multiply(
            Get(
              4100
              Get(
                10000
                2
              )
            )
            0.072
          )
        )
        Divide(
          Subtract(
            Get(
              1000
              1
            )
            Negate(Get(
              1000
              1
            ))
          )
          2
        )
      )
    )
    Set(
      10000
      3
      Lerp(
        -0.9
        0.9
        Divide(
          Mod(
            Get(
              4100
              Get(
                10000
                3
              )
            )
            2
          )
          2
        )
      )
    )
    Set(
      10000
      4
      Add(
        1
        Multiply(
          Get(
            4000
            0
          )
          32
        )
      )
    )
    Set(
      10000
      5
      Add(
        1
        Multiply(
          Get(
            4000
            1
          )
          32
        )
      )
    )
    Set(
      10000
      6
      Add(
        4
        Multiply(
          Get(
            4000
            0
          )
          32
        )
      )
    )
    Draw(
      18
      Get(
        10000
        1
      )
      Subtract(
        Get(
          10000
          3
        )
        0.009
      )
      Get(
        10000
        1
      )
      Add(
        Get(
          10000
          3
        )
        0.009
      )
      Get(
        10000
        2
      )
      Add(
        Get(
          10000
          3
        )
        0.009
      )
      Get(
        10000
        2
      )
      Subtract(
        Get(
          10000
          3
        )
        0.009
      )
      Add(
        Add(
          220000
          Multiply(
            Min(
              Get(
                4100
                Get(
                  10000
                  4
                )
              )
              Get(
                4100
                Get(
                  10000
                  5
                )
              )
            )
            100
          )
        )
        Get(
          4100
          Get(
            10000
            6
          )
        )
      )
      Get(
        2001
        9
      )
    )
    3
  )
  Execute(3)
  0
))