anchor.diff:          tmp .= ctx.Env.CallMember("NewArray", [!!!length])
   
           (List.mapi (fun i value ->
  -          let index = uint32 i |> Dlr.const'
             let value = ctx.Compile value
  -          tmp |> Index.put index value
  +          tmp |> Index.put !!!(uint32 i) value
           ) indexes) |> blockSimple
   
           tmp :> Dlr.Expr
  
positive.code:     //
      let get (index:Dlr.Expr) expr = 
        tempBlockT<CO> expr (fun tmp -> 
          [Dlr.call tmp "Get" [index]]
        )
  
      //
  
negative.code:       match assign with
        | Ast.Assign(Ast.String name, expr) -> 
          let value = ctx.Compile expr
          tmp |> Property.put !!!name value
  
        | _ -> failwith "Que?"
  
  