anchor.diff:                          let v = f level
                           current <- Some (level, v)
                           v
  -//            }
               )
   
           let final =
  
positive.code: 
          r.GetDelta() |> ignore
  
          let sw = Stopwatch()
          sw.Start()
          for i in 1..iter do
              transact (fun () -> Mod.change vt (vt.Value + V3d.III))
              r.GetDelta() |> ignore
          sw.Stop()
  
  
          sprintf "took: %.3fms" (sw.Elapsed.TotalMilliseconds / float iter) |> Console.WriteLine
  
  
  
  
  
  
  
negative.code:                 for x in 0..20 do
                      for y in 0..20 do
                          for z in 0..20 do
                              yield fun (i : int) -> V3i(x,y,z)
              }
  
          let getLevel (m : IMod<V3d>) (f : int -> V3i) =
              let mutable current = None
              m |> Mod.map (fun m ->
                  let level = 
                      match V3d.Distance(m, m) with   
                          | v when v < 100.0 -> 0
  